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LA GROSSE TETE 
A VOTRE AMSTRAD 

Avec son « kit-programmation Turbo Pascal »,Fraciel vous donne la possibilité 

d'utiliser pleinement toutes les ressources de votre AMSTRAD, 

à la manière d'un véritable ordinateur professionnel. 



TURBO PASCAL 
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PLUS VITE, PLUS FACILE, 

LE LANGAGE QUI VOUS PERMET 

D'UTILISER A FOND 

VOTRE ORDINATEUR 

• Vitesse de compilation 

Turbo Pascal compile en mémoln 




passe, à i; 



i 100 lignes/seconde. 



• Editeur-compilateur intégrés 

L'ensemble éditeur-compilateur réside en 
mémoire. Lorsque votre programme est entré, 
vous le compilez en tapant simplement 
sur une touche. 

Si une erreur survient à la compilation, 
l'éditeur est appelé et l'erreur retrouvée dans 
le code source. 

• Un langage toutes applications 

Toutes vos applications peuvent être écrites 
avec Turbo Pascal : gestion, enseignement, 
calculs, logiciels svsié 
recherche, etc. . 



TURBO TUTOR 



Turbo Tutor c'est un ensemble formation pour 
apprendre el maîtriser ■■ sans peine » le Pascal 
et toutes les ressources de Turbo Pascal Turbo 
Tutor s'adresse aussi bien aux débutants qu'au» 
programmeurs confirmés auxquels il explique 
les notions les plus « pointues ». 
Turbo Tutor ne coûte que 400 F. 
Il comprend 1 manuel en français (200 pages) el 
1 disquette reprenant tous les exemples du livre. 
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CLUB AMSTRAD OU PAS ? 



C'est tout à fait certain, le nombre des clubs AMSTRAD va aller 
en augmentant. Il y aura sans doute le club AMSTRAD FRANCE. 
les clubs de certains professionnels Ic'est pratique, c'est facile 
et cela peut rapporter 1), 

Moyennant une cotisation, vous recevez, qui un journal, qui une 
carte d'achat ou un bulletin de club. Dans ce dernier cas, c'est 
déjà plus sérieux, surtout s'il s'agit d'un club structuré, sous forme 
d'association, par exemple. 

Alors, devons-nous suivre la mode (vous prendre au passage un 
peu de "fric") ou poursuivre nos actions comme nous l'avons 
toujours fait jusqu'à ce jour ? Notre choix est fait. M l'a été dès 
le premier numéro. L'ensemble des lecteurs de cette revue est 
membre d'office de ce que nous n'appellerons pas un club. Cela 
ne nous empêche en aucune façon d'être très efficaces, et nous 
n'en voulons pour preuve que l'exemple suivant : 
Notre lecteur. Monsieur VOISINE, nous a écrit, nous signalant 
avoir acheté (dans une grande surface) son appareil avec une 
notice en anglais. Malgré des courriers et des appels téléphoni- 
ques, impossible d'obtenir cette notice en français, obligatoire. 
Il a donc fait appel à nous, et nous avons réagi immédiatement 
48 heures après nos menaces, il recevait un appel l'informant 
que la notice était disponible ! 

Si nous ne sommes ni un club officiel, ni une association de 
consommateurs, l'équipe de CPC s'estime dévouée è ses lecteurs. 
C'est depuis des années la politique et la force de notre société I 
Dans quelque temps, nous mettrons â la disposition des lecteurs 
de CPC un numéro de téléphone spécial . Mais attention I comme 
nous l'avons fait remarquer dans le numéro précédent, il est hors 
de question de prendre en charge vos questions sur des articles 
d'autres revues, vous le comprendrez sans aucun doute. 
Aussi, si vous avez des questions ou des problèmes à résoudre, 
vous voudrez bien joindre votre numéro d'abonné ou le coupon 
numéroté que vous découperez dans chaque mensuel. 
Dans tous les cas, il est évident que l'ensemble de nos ebonnés 
aura toujours priorité dans tous les domaines, y compris les prix 
que nous pratiquons ! 

Alors, faites le compte I Pour 1 8 francs par mois, vous êtes mem- 
bre d'un club I 

L équipe de la rédaction 



AVERTISSEMENT AUX AUTEURS 

Nous avions prévu vous proposer dans ce numéro de 
CPC un programme de dessin intitulé CPC PAINT, écrit 
pat Michel CMANAUD, auteur de AWARI et MATRIX 
que nous avons publiés dans CPC n° 2 Le hasard nous 



. lecteurs des programmes figurant dan 
is, nous vous demandons de n'envover , 
le CPC que des programmes ongineu- ei 
a pas proposés ailleurs 
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LIVRES 

Super jeux AMSTRAD (PSI) 120.00FF 

AMSTRAD en famille 1 20,00 FF 

EXPLOITEZ VOTRE AMSTRAD 
fourni avec la K7 programmes : 138,00 FF 

Logiciels + Accessoires pour Us appareils eilis aux prix VISMO 
NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 
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Wbus aimez la qualité sans 
ti cession , 

•i comme nous, vous rechercl 
idées innovatrices de demain, 

alors contactez au plus tôt : 
LORIClELS-département Edition 
53 rue de Paris 92100 BOULOGNE 
Tél. :(l)825.U.33.Télex : LORI 631748 

j: 



LORIC1ELS c'est : 

— plus de 120 titres pour: 
THOMSON. APPLE, MSX. ORICTWARI 
COMMODORE, SINCLAIR, MATRA. . 

— Des jeux, des utilitaires, des éducatits. 
des langages, dont Forth, Logo. 
Assembleur, Basic... 

— L'univers fantastique du Logiciel. 



S3m, 



ISrîaels- 



N'essayez pas de charger 
"morceau" de programme : ce 
n'est pas prévu pour ! 

Hervé DREGE " 

...je n'arrive pas à charger le pro- 
gramme intitulé "TGVDEF" de 
Meurtre à Grande Vitesse". 
Les logiciels du commerce ne 
som pas prévus pour être char- 
gés en "morceaux", Il est normal 
que l'ordinateur refuse de pren- 
dre un programme après le début 
de la cassette Ceci est souvent 
lié à des problèmes de protection 
obligeant l'utilisateur à lire la 
bande dès son début. 



"...je vous suggère de traiter les 
sujets suivants : statistiques, tra- 
cés de biorythmes, calcul de l'im- 
pôt sur le revenu..." 
Message reçu, cher lecteur ! 
Autant que faire se peut, nous 
tiendrons compte de vos désirs. 
Nous avons déjà publié un pro- 
gramme de "biorythme". C'est 
aussi pour répondre à une 
demande sans cesse croissante 
que nous publions dans ce 
numéro un programme de 
"MARDCOPY" quasi universel. 



"... les informations sur bandes 
magnétiques, peuvent-elles se 
présenter sous une forme diffé- 
rente de blocs de 2 k ?" 
Sur plusieurs logiciels commer- 
cialisés, on trouve maintenant 
des formats de sauvegarde diffé- 
rents du format classique AMS- 
TRAD. Ceci est souvent fait dans 
un souci de protection, les cas- 
settes débutant par un "loader ". 
programme de chargement cons- 
tituant une routine capable de lire 
le format modifié. 



"Existe-t-il une sorte de diction- 
naire donnant les équivalences 
entre les différents ordinateurs ?" 
Bien que votre question soit 
assez imprécise, nous croyons 
comprendre que vous recherchez 
un ouvrage traitant des différents 
Basic, Il existe plusieurs livres de 
la sorte, les plus célèbres étant 
certainement le "Dictionnaire du 
Basic" de PSI et le "Guide du 
Basic" chez Mac Gtaw Hill. 



"J'ai acheté EASY-AMSCALC, 
tableur que je destine à une petite 
comptabilité prévisionnelle. L 'en- 
nui est que la documentation est 
en anglais..." 

Nous ne saurions que trop 
conseiller à nos lecteurs d'atten- 
dre avant de se précipiter sur ce 
logiciel, et de faire le tour pour 
savoir ce qui existe en équivalent, 
pour comparer les caractéristi- 
ques... en incluant la qualité de 
la documentation. Pour un utili- 
taire, la rédaction de la notice 
importe au moins autant que la 
réalisation du logiciel. Il est inad- 
missible qu'un utilisateur sort 
obligé de "décrypter" une notice 
écrite par l'auteur du logiciel (for- 
cément imprégné de son travail) 
et qui n'a jamais été soumise à 
des néophytes. 

EST-IL POSSIBLE DE 
SIGNALER A L'ECRAN 
LE MODE MAJUSCULES ? 

Sur les AMSTRAD, rien n'a été 
prévu pour indiquer à l'utilisateur 
l'état de la "bascule" CAPS 
LOCK. D'autres ordinateurs ont 
une petite diode électrolumines- 
cente ou un rappel à l'écran (ex.: 
ORIC) de l'état du clavier. 
Vous trouverez, dans CPC, un 



moyen utilisant les interruptions 
permettant de palier a ce défaut. 
Voilà qui répondra à plusieurs 
demandes ! 

LE 8- BIT ABSENT... 

Par souci d'économie, et pour 
simplifier le hard, les concepteurs 
d'AMSTRAD ont mis en place 
une sortie imprimante non 
conforme avec la norme CEN- 
TRONICS, puisque le 8" bit est 
absent... Cela pose bien des pro- 
blèmes sur les imprimantes qui en 
ont besoin pour passer en "qua- 
lité courrier" ou en "mode gra- 
phique". Parfois, le simple for- 
çage à 1 (au + 5 V) de cette ligne 
a l'entrée de l'imprimante pourra 
résoudre le problème, mais en 
règle générale, il faudra passer 
par une interface spécialisée. 
Nous envisageons actuellement 
la description, dans nos colon- 
nes, d'une telle interface. 



pour AMSTRAD FRANCE 

Ne soyez pas 

consommateur ; venez 

bénéficier de nos 20 ans 

d'expérience en informatique 

23, rua dm la Mouchatlara 

Z.I. Ingré 

45T4C St. Jaarvda-la-Rualla 

Tél.! |3I) 43.11.13 

ou (11) 72.22.iJ 
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REVENDEUR OFFICIEL AMSTRAD FRANCE 
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LOGICIEIS DISQUETTES 



Possibilité* de crédit partial ou total 
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EN ANGLETERRE 



Nous allons ce mois-ci passer en 
revue les modules d'extension se 
connectant è l'arrière du CPC et 
contenant des logiciels en ROM 
commercialisas par Micro Power 
Lld, Nonhwoud House. North 
Street. LEEDSLS7 2AA, Tél.: 19 44 
532 434 006. 



SIDEWAYS ROM CARD A101 
Ce boîtier permet de loger vos pro- 
pres applications en EPROM. 7 sup- 
ports sont à votre disposition. Ils 
acceptent toutes combinaisons de 
mémoires 8 k ou 16 k. l'alimenta- 
tion est fournie par le CPC. 

> > e> 

PROGRAMMERA T00LB0X A104 

La boite à outils du programmeur 
contient de nombreux utilitaires Que 
l'on peut classer en deux catégories . 

— des (onctions additionnelles au 
Basic, essentiellement graphiques et 
musicales, telles que CIRCLE, FILL, 
TUNE , 

— des aides a la programmation 
comprenant un éditeur, un compac- 
teur de programmes, des routines 
d'impresBion, un traceur sur impri- 
mante, un chargeur de programmes 
protégés, etc. 

> t> > 

DISK USERS UTILITIES A103 



module comporte de r 
litaices propres a satisfaire les utili- 
sateurs de disques. On y trouve pèle- 
mête un désassembleui, un éditeur 
de secteurs performant, un copieur 
"intelligent'' et de nombreux délits 
utilitaires d'usage général, 



MACHINE CODE MONITOR A105 



Ce boîtier 
développement 
AMSTRAD. Il 
assembleur, ur 



système de 
code machine sur 
un éditeur - 



A l'heure où j'écris ces lignes, d'au 
très modules devraient être disponi- 
bles, a savoir : 
un tableur, 

- un gestionnaire de fichiers, 

— un traitement de texte. 

- un module graphique /statistiques. 



de communication est intégré en 
ROM et peut-être appelé è parti/ du 
Basic. Communicator offre égale- 
ment une sortie série et parallèle. 



Toujours dans le domaine des exten- 
sions, on notera la sortie d'un light 
p*n chez DK'Tronics, tél.: 19 44 
7992 6350 et d'un trecker bail chez 
MARCONI, tél.: 19 44 5826 1283. 
Le tracker bail est un dispositif de 
commande analogue au joystick 



Un 



■ Mit 



,— . propose deux 
modules en ROM : PROTEXT, trai- 
tement de texte qui a reçu une excel- 
lente critique de la presse britanni- 
que, et UTOPIA BASIC UTILITIES 
ROM, qui offre de nombreux utilitai 
res d'aide à l'écriture de programmes 
en Basic, tels que : déplacement de 
lignes, listage des variables, recher- 
che et remplacement de chaînes, 
etc. Disponibles chez ARNOR Ltd. 
The studio, Ledbury place, Croydon, 
Surrey CRO 1ET. Les paiements par 
carte VISA sont acceptés. 

> > > 

KDS Electronics 15, Hill street, 
Munstanton. Norfolk PE36 5BS. tél.: 
19 44 4853 2076 propose COM- 
MUNICATOR, qui comporte un 
modem aux normes BELL/CCITT 
fonctionnant en 300; 300. 600, 
1200, 1200/75. 75/1200baudsen 
half et full duplex avec numérotation 
et réponse automatiques. Le logiciel 
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AMSTRAD 

(canette, ou aXsquefte) 

En oui ! It y a maÀjtfenant 40 tLttti 
COBRA SOFT pou*. Amètiad 464, 664 eX 
6128. It 6'agtt dt la ptui importan- 
te cottectton de togici.zt6 &xançaiA- 

Jeux, éducatiii, utlLUaJjt.eA , gestion : 
•J y en a pout tout. leA goùti, . . 
Demandez notie nouveau catalogue en 
écUvant à : COBRA SOFT 

B.P. 155 

71104 CHALON/SAONE CEVEX 
(jolndie 2 timbttA à 2.20 i*i pou* Le* 
{jia.Lt d'enuotl. 

Piogiammeuii, contactez-noué !!! 
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L AMSTRAD 
EXPLORE" 
John BRAGA 
SYBEX 



compléter les 
informations que vous 
offre le manuel et 
tirer le meilleur parti 
de votre machine, ce 
livre pourra peut-être 
vous conseiller 
utilement. 



AMSTRAD 
EXPLORE 



Basic sont supposés 
connus, et c'est vers 
les particularités du 
système AMSTRAD 
que l'exposé est 
orienté. Avec cet 
ouvrage, on ne vous 
encourage pas 
seulement à taper des 
programmes : on 

comprendre. Le texte, 
le graphisme, le son 
levée quelques 
rudiments de solfège) 
vous sont expliqués 
par l'exemple. Une 
petite partie du livre 
résume quelques 
adresses de routines 
système exploitables 
pour vos programmes 
en langage machine, 
La fin de l'ouvrage 
est consacrée à la 
description d'un 
logiciel de budget 
familial dont 
l'élaboration est 
commentée pas à 
pas. A lire pour 
commencer sa propre 
progression ! 



UTILISATION DE 
L'AMSTRAD 
CPC 464'' 
lan SINCLAIR 
HACHETTE 
125 F 

Ce livre se définit 
comme étant "un 
ouvrage de 
complément à 
l'excellent manuel 

machine". Traduit de 





l'anglais (l'auteur esl 
bien connu des 
apprentis 

informaticiens), il est 
paru Outre-manche 
sous le titre 
"AMSTRAD 
Computing". Son 
origine se voit du 
reste à certaines 
illustrations (prises 
secteur de type 
anglais...) et à une 
partie de la mise en 
œuvre de la machine 
ne "collant" pas avec 
nos téléviseurs 
français. 

Ce livre est bien 
structuré et il propose 
au lecteur de se 
familiariser avec la 
machine tout en 

main très progressive 
suivant un ordre 
logique. 

Types de boucles, 
manipulations de 
chaînes, sous- 
programmes, fichiers 
de données, fenêtres, 
graphisme, rien n'a 
été oublié. Il nous 
paraît important de 
signaler que la 
description des 
fonctions sonores 
devrait aider le 
néophyte à 
comprendre ce qu'il 
n'avait pas bien 
compris en lisant le 
manuel. 

Faire, en 250 pages, 
le tour de l'AMSTHAD 
et réussir a se faire 
comprendre du 
débutant, voilà qui 
mérite d'être 
souligné î 



AMSTRAD EN 
FAMILLE" 

Jean-François SEHAN 
PSI 
120 F 
Vous avez acheté la 



hine, mais que 
■ avec ? Vous 

voilà à court d'idées ! 

40 petits programmes 

en Basic pour 

commencer à 



applications, ça vous 
tente ? C'est ce que 
propose le livre de 
J.F. SEHAN. 




Pas toujours 
originaux, et 
n'exploitant hélas pas 
les possibilités 
graphiques et sonores 
de l'AMSTRAD, ils 
ont (e mérite d'être 
proposés avec un 
organigramme et une 
liste des variables 
utilisées. Par contre, 
ils touchent à tous les 
domaines de la vie 
familiale : répertoire 
téléphonique, gestion 
de cave, disposition 
des meubles dans une 
pièce, statistiques du 
loto (si vous gagnez, 
faites nous signe I), 
aide à la conjugaison. 
Des idées à prendre ! 



Nous avons déjà 
parlé, dans notre 
numéro 1 , de 
"TRUCS ET 
ASTUCES POUR CPC 
464". La collection 



les 



de MICRO 
APPLICATION 
semble s'agrandir 
chaque mois. Outre la 
très célèbre "Bible du 
programmeur" qui, 
bien qu'imparfaite et 
entachée de quelques 

référence, avec le 
SOFT 158 (Firmwarel 
d'AMSOFT, à tous 
passionnés de 
programmation en 
langage machine, 
nous avons retenu 



Ce livre donne une 
foule de 

renseignements sur 
des adresses, peu 
connues (ou comme 
telles avant la lecture 
de ce livre) et 
intéressantes, du 
système. Duper le 
Basic, déplacer la 




mémoire d'écran, 
créer des scrollings 
inattendus en jouant 
avec les registres du 
contrôleur d'écran : 
autant d'astuces qui 
vous permettront de 
faire plus ample 
connaissance avec le 
système d'exploitation 
de la machine. En fin 
d'ouvrage, une liste 
d'adresses mémoires, 



contrôlant le 
fonctionnement de la 
machine, permettra 
de faire quelques 
expériences. Une 
critique : le livre est 
un peu fouillis, ce qui 
oblige à le parcourir 
en entier pour en 
extraire "la 
substantifique 
moelle". 



Cet ouvrage propose, 
grâce à de nombreux 
exemples, un 
apprentissage 
progressif du Basic de 
l'AMSTRAD. Initiation 
à la programmation, 
découverte de 
l'organigramme, 
systèmes binaire et 
hexadécimal sont les 
premiers pas avant 
l'analyse des 
différentes 

instructions du Basic. 
Des exemples 
d'application, des 
exercices et leurs 
corrigés vous 
permettront de 
progresser. Vous 
serez amenés, en 
douceur, à la 
conception et 
l'écriture modulaire 
d'un programme. Une 
étape sur la route de 
l'apprenti 
programmeur. 




BAIMC □' ESSAI 



Comme vous l'avez noté dans 
nos précédents bancs d'es- 
sais, "on ne fait pas de 
cadeaux", surtout lorsque la qua- 
lité n'est pas en rapport avec le 
prix de vente. 

Que diriez-vous s» vous aviez 
payé 30 francs une place de 
cinéma, pour découvrir un navet 
de série B en version originale non 
sous-titrée ? Et bien, c'est parfois 
le cas pour des cassettes du 
commerce, et ce pour un prix 
quadruple I Vrai ou faux ? 
Notre cotation, discutable, per- 
sonnelle mais sincère, reste la 
suivante : 

= nul (ou absent 1.1 = médiocre, 
2 = moyen, 3 = bon, 4=excel- 
lent, 5 = extraordinaire. 
On commence par les jeux, 



LA VILLE INFERNA 

En français:;:-:::" 1 ::: 
(COBRA) 

Jeu d'aventure et d'orientation. 
Pas d'assassin, pas de sang, pas 
de "science" fiction, pas de 
morts ni de blessés. Original I 
non ? Ce genre d'aventure, nous 
l'avons tous vécue à des degrés 
divers. Vous devez, au volant de 
votre voiture, traverser une 
grande ville du sud au nord, dans 
un dédale de carrefours anony- 
mes avec interdiction de tourner 
à droite ou à gauche ou d'aller 
tout droit. Heureusement, vous 
avez une boussole pour mainte- 
nir le bon cap. mais quelque 
temps plus tard elle tombe en 
panne ; vous avez donc intérêt a 
noter vos changements de direc- 
tion sur papier. 

Mais d'autres ennuis vous atten- 
dent : crevaison, panne de carbu- 
rateur, risque de panne d'es- 
sence, contraventions. Il y a bien 



sûr votre trajet des garages et des 
banques pour faire le plein d'es- 
sence ou d'argent ; encore faut- 
il les rencontrer quand on en a 
besoin (comme en "vrai".,.). Le 
jeu est simple à jouer, on répond 
par le joystick (ou flèches). 
1600 carrefours, 80 banques, 80 
postes de police, 90 garages et 
90 postes d'essence ; la ville est 
donc suffisamment grande pour 
ne pas risquer de faire deux par 
cours identiques. 
L'animation est insignifiante, le 
graphisme réduit à des traits jau- 
nes sur fond noir avec de très 
rares motifs en bleu, rouge et 
vert. Pourquoi cet éternel et triste 
fond noir commun à tant de logi- 
ciels ? 

Un peu de son, un peu d'humour 
dans les messages. En fin de par- 
tie, l'écran montre le "plan" de 
la ville avec le trajet que l'on a 

En résumé, un jeu gentillet qui 
plaira beaucoup aux enfants. 
Graphisme - 2, Animation = 1 , 
son = 2. Originalité = 3. 



lonçfels,,^,. 



EMPIRE 

Loricials pour CPC 464::;:;:h : ;::n:n : : : 

Empire est l'un des premiers bons 
jeux français de simulation éco- 
nomique et politique, alliant 
même des options de diplomatie 
et de stratégie guerrière. 
Nous sommes maintenant en l'an 
203 avant Jésus Christ. Vous 
êtes le César d'une petite pro- 
vince du monde connu. Il vous 
faut la faire prospérer (économi- 
quement, démographique ment 
et, bien sûr, militairement I), dans 
le but avoué d'annexer les provin- 
ces voisines et, peut-être, de 
créer un Empire... 
Pour vous aider (non, vous n'êtes 
pas seul contre tous : paranoïa- 
ques s'abstenir II, vous disposez 
d'une garnison de 36 hommes, 
de 24 chevaux, de quelques 
armes et. surtout, de 3 consuls : 
un pour l'agriculture, un pour les 
chevaux et un pour l'industrie 
métallurgique. Ils sont respective- 
ment nécessaires à l'approvision- 
nement en vivres, en chevaux et 
en minerai (pour fabriquer armes 
et catapultesl. Chacun de vos 
personnages (César et consuls! 
dispose de deux actions par sai- 
son, l'unité de temps. Ils peuvent 
se déplacer, charger ou déchar- 
ger hommes, chevaux et maté- 
riel, construire Ice qui utilise les 
deux actions en une seule fois), 
ou bien.,, ne rien faire I 
Le livret des instructions est clair 
et bien réalisé, agrémenté de 
nombreuses citations latines ou 
autres, mais il est hélas minus- 
cule I A quand la fourniture de 
loupes pour notices de program- 
mes ? 

Le graphisme est bon, et la réali- 
sation est soignée. Les représen- 
tations iconographiques simpli- 
fient et éclaircissent le jeu. On 
aurait juste pu réclamer une tou- 



che inventaire, car il faut mémo- 
rise' les réserves à chaque tour. 
Attention aux touches trop long- 
temps appuyées qui effacent le 
récapitulatif du joueur suivant ! 
Certains messages s'affichent un 
peu trop rapidement, mais ce 
n'est qu'un détail, 
L'intérêt de la simulation écono- 
mique est encore accru par les 
options de sièges et de diploma- 
tie. Les attaquants et défenseurs 
peuvent en effet s'allier (momen- 
tanément Il avec d'autres joueurs 
ne participant pas au combat, 
pour l'envoi de renforts. Les 
"feuilles de traités" sont là pour 
ça I Mais comme le dit si bien la 
notice ; "Le principe d'alliance 
est indissociable de l'idée de tra- 
hison... " Tout un programme I 
Deux reproches encore le 
combat ne peut prendre que ta 
forme du siège de la citadelle 
ennemie, ce qui empêche les 
"vraies" batailles romaines ; et 
enfin II est dommage que l'ordi- 
nateur ne soit qu'arbitre et qu'il 
ne puisse gérer un ou plusieurs 
joueurs. En effet, Empire est un 
jeu très prenant, mais qui ne 
prend sa véritable dimension qu'à 
partir de 3 joueurs. 
NOTE : Un petit conseil. Si vous 
ne voulei pas être forcé d'aban- 
donner une passionnante partie 
en cours de jeu, évitez au maxi- 
mum d'avoir un nombre de sol- 
dats inférieur au nombre de che- 
vaux ou d'armes dans l'escorte 
du César ; cela peut, dans cer- 
tains cas, "planter" définitive- 
ment le programme. 
Graphisme = 3. Animation = 1 , 
Son = 2, Intérêt = 4, 



LE TOUR DU MONDE EN 8CHj 

JOURS 
En français 

INO MAN'S LÂND) 
Réédite; l'exploit de Philéas 
FOGG dans ce jeu d'aventure 
graphique inspiré du célèbre 
roman de Jules VERNES. Tout en 
suivant votre déplacement sur 
cinq cartes en graphisme, un peu 
sommaire à notre goût, vous ren- 
contrez des dizaines de person- 
nages qui semblent s'ingénier à 




"DATA BASE' 
En anglais : 
(DEAN1 






numérique (prix d'achat, de vente 
ou taux de TVA) par une donnée 
alphabétique, le message peu 
plaisant "Redo from Start ?" 
apparaît à l'écran avec des déca- 
lages que le programme ne recti- 
fie pas. . . De plus, si sur une modi- 
fication d'article, l'utilisateur 
répond par ENTER sans avoir ren- 
tré une nouvelle libellé, le reste du 
fichier est perdu I Pour ceux 
qui auraient réussi à lister ce pro- 
gramme, la suppression de la 
ligne 1010 leur évitera cette 
mésaventure. 

Ce logiciel semble avoir été l'œu- 
vre d'un amateur pressé. On peut 
noter également qu'il ressemble 
en tout point (sauf les erreurs) à 
un logiciel de gestion de stock 
distribué par un concurrent. 
retarder votre progression et à Notice = absente. Performance 
vider votre porte-monnaie. Des = 2, Facilité = 2, Intérêt = 1 . 
incidents en tous genres viennent Efficacité = 1 . 
perturber le bon fonctionnement 
de tous les moyens de transport 
que vous empruntez. Bref, c'est 
la galère ! Il vous faudra faire 
preuve de beaucoup de sang- 
froid et d'imagination pour vain- 
cre tous les obstacles qui se pré- 
sentent sur votre chemin. Nous Gestionnaire de fichier avec f onc- 
avons regretté la brièveté de cer- t ion tableur Des menus en 
tatns messages et surtout la len- anglais, mais il y a toujours pos- 
teur de chargement de la cas- sibilité de corriger une erreur sans 
sette. Voilà un programme qui nsque de planter le programme, 
aurait tout intérêt à être vendu Outre les fonctions habituelles, 
sur disquette. Enfin, au bout de te n es que triSj caS sette, impri- 
quelques minutes de jeu, on s'y mante, modification de fiches, 
croit vraiment et le dépaysement etc., la grande originalité est que 
est garanti, |* on peut définir des rubriques 

Graphisme = 2, Animation = 1 , numériques par calculs de deux 
bon - 1 , Intérêt - 3. autres rubriques numériques. 

Exemples ; rubrique A = B + C, 
A = B-C, A = BxC, A = B/C 
constante ; A = somme de B, 
GESTION DE STOCK. Avec ' bieri sùr ' des "briques 

Microbureautique 92 : alphanumériques (en lettres), 

chose que ne peut pas faire un 
Vraiment pas génial ce logiciel tableur. Au départ, on a le choix 
présenté par Microbureautique entre cinq formats de fichiers. 
92 qui aurait dû être d'autant Depuis 360 fiches de 10 rubri- 
plus présentable et fini qu'il ques, jusqu'à 72 fiches à 50 
s'adresse à des professionnels rubriques. On dispose en outre de 

Pas de documentation, d'ailleurs deux programmes DATA BASE, 
il n'y en a pas besom. il suffit à en 40 ou en 80 colonnes ; ce der 
l'utilisateur de suivre le menu et nier étant pour les rubriques lar- 
de rentrer ses données, mais ges. Mériterait d'être francisé, 
avec une extrême attention, car tant pour la clarté des menus que 
il n'y a aucun contrôle. C'est bien pour les caractères AZERTY. 
regrettable : si, par erreur, l'utili- Facilité = 3, efficacité = 3, perfor- 
sateur répond à une question mances = 4, intérêl = 3. 



3D 




3D ECHECS VOCAL est la ver- 
sion française de 3D VOICE 
CHESS écrit par Chris WITTING- 
TON et édité en Grande-Bretagne 
par DEEP THOUGHT SOFT- 
WARE. L'adaptation en français 
a été réalisée par la société suisse 
SEMAPHORE Logiciels qui a bien 
voulu nous confier un exemplaire 
de présérie pour évaluation. 

L'AFFICHAGE 3D constitue une 
des originalités du programme Le 
dessin de l'échiquier est de fort 
bonne facture ; de même, le 
choix de l'angle de vision est très 
bon et évite de rendre difficile la 
reconnaissance des pièces par- 
tiellement masquées. Lors de 
l'initialisation, les cases sont 
blanches et noires, les pièces 
blanches sont en |aune paille et 
les pièces noires en brun foncé. 
Dans le cas où ces couleurs ne 
vous conviendraient pas, il est 
très facile de les modifier à l'aide 
de la commande V. La com- 
mande O. quant à elle, permet de 
faire tourner l'échiquier de 90° à 
chaque pression, ce qui offre 
t'avantage de voir le jeu sous tous 
les angles, 




LE SYNTHETISEUR DE VOIX 

vous annonce en bon français 
tous les coups joués. Bien que 
l' AMSTRAD n'utilise pas de cir- 
cuit de synthèse vocale, les mes- 
sages sont compréhensibles et il 
semble difficile de faire mieux. On 
notera qu'en début de partie, un 
menu propose d'utiliser ou non la 
synthèse vocale, Si vous décidez 
de jouer en silence, une petite 
sonnerie viendra quand même 
vous prévenir que l'ordinateur a 
fini de réfléchir et que c'est à 
vous de jouer. 



entre chaque coup dans de telles 
conditions. Laissons le soin aux 
spécialistes d'analyser la partie à 
l'aide de la liste des coups ci- 
jointe. 



offre 



deux 



Le progran 
oplions : 

- le jeu normal. 

- l'analyse, réservée aux joueurs 
qui veulent faire résoudre des 
problèmes à leur machine. 

En jeu normal, vous choisissez les 
blancs ou les noirs et le niveau de 
jeu. 7 niveaux sont proposés, du 
débutant, où la machine répond 
en 8 secondes, jusqu'au niveau 
"jeu par correspondance", où 
['AMSTRAD peut réfléchir jus- 
qu'à 24 heures à chaque coup. 
Parmi les différentes options du 
jeu, nous avons encore noté la 
possibilité : 

- de changer de côté ou de 
niveau en cours de partie, 

- de stopper la partie pour repo 
sitionner les pièces à votre guise. 
De plus, en pressant la touche R, 
l'ordinateur vous aide en vous 
annonçant ce qu'il jouerait s'il 
était à votre place. Naturelle- 
ment, le programme accepte le 
roque et la prise en passant. 
Nous avons simplement regretté 
qu'il ne soit pas possible de reve- 
nir en arrière d'un certain nombre 
de coups, ce qui permet de tes- 
ter plusieurs combinaisons tacti- 
ques sans avoir à reprendre une 
partie entière, ni de sauver une 
partie en cours pour la reprendre 
ultérieurement. 

échecs, nous avons confronté ce 
programme à MVCHESS II de 
Oatamost, qui joue aussi en 3D, 
mais sur APPLE II. Nous avons 
choisi pour 3D ECHECS VOCAL 
le niveau 2 — intermédiaire — et 
pour MYCHESS 11 le niveau 4, 
chacune des machines "réflé- 
chissant" pendant une minute 





LA PARTIE 


30 ECHECS VOCAL 


MVCHESS il 






E7-E6 


2 


GI-F3 


GB-F6 


3 


B1-C3 


F8-B4 




F3.EB 


D7-D8 


E 


E5-F3 


B4.C3 






F6.E4 




F1-D3 


0605 


B 


CI -A3 


B8-C6 


S 





CB-G4 


10 




G4.F3 




G2.F3 


D8-G5 ECHEC 


12 


G1-H1 


G5.D2 


13 


F3.E4 


02. E2 




03. E 2 


D5.É4 


le 


fï-GI 


G7-G6 




A3-C5 


H8-GB 


1S 


G1-G4 




19 




GB-G7 


20 


HAG2 


G6-G5 




H4-H6 


F5-F4 




F2-F3 


G5-G4 




EÎ-BS ECHEC 


C7-CB 


24 


B5-C4 


G4.F3 ECHEC 


2& 


G2 H 3 


E4-E3 


2B 




B7-B6 


27 


C4-B3 


F3-F2 


2» 


E6-E4 




29 


E4.F4 


E3-E2 


30 


B3-F7 ÉCHEC 


G7.F7 
E8.F7 




H3-G2 


E3.01 


33 


C5.F2 


A8-G8 ECHEC 


34 


F2-G3 


01. C2 ECHEC 


35 


G2-F3 


E7-D5 


36 


C3C4 


C2.C4 




G3-E1 


C4-G4 ECHEC 




F3-F2 


G4-G2 ECHEC 


39 El 


MAT, JE PÉHDS 





La partie a été âpre, et MYCHESS 
ne l'a emportée qu'après une 
résistance acharnée de 3D 
ECHECS VOCAL qui a peut-être 
laissé passer sa chance en milieu 
de partie où il avait un solide 
avantage matériel. Le niveau 
conviendra au débutant en fui 
offrant un jeu raisonnablement 
difficile, mais lui laissant quand 
même la possibilité de gagner de 
temps en temps. Rien n'est plus 
rageant que de se faire systéma- 
tiquement battre par un ordina- 
teur. 

Par contre, le joueur expérimenté 
trouvera au niveau 4 (tournoi), un 
adversaire coriace, toujours dis- 
ponible et de bonne humeur I Un 
bon programme pour les longues 
soirées d'hiver. 

Graphisme = 4, Animation = 4, 
Son = 4, Intérêt = 4. 
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"FRUITY FRANCK" 
En anglais 

C(KUMA) 
est un jeu d'arcade qui a le 
mérite d'être à la fois simple et 
passionnant. Il faut le faire ! Vous 
déplacerez un petit bonhomme 
très rapide qui ramasse des ceri- 
ses et des bananes dans un Jar- 
din gardé par des monstres. Vous 
pouvez les éliminer en leur faisant 
tomber une grosse pomme sur la 
tête, ou les repousser en leur 
jetant des balles. Quand tous les 
fruits sont ramassés, passage au 
tableau suivant qui peut être plus 
simple ou plus difficile. C'est 
cette agilité facile qui rend ce jeu 
très prenant. Une réussite. 
Graphisme = 4, animation ■ 4, 
son = 3, originalité = 3, intérêt = 4, 



"DARK STAR" 

ZEn anglais 
I DESIGN DESIGN) 
im-zoum sur la soucoupe. 
Encore un ? Pas comme les 
autres ' L'image est très belle, en 
"trois dimensions" Ije n'ai cas dit 
en quatrième... ), constamment 
en travelling avant. Le graphisme 
est stylisé mais beau, et l'anima- 
tion est plus qu'excellente. Votre 
vaisseau passe de galaxie en pla- 
nète hostiles, comment ? pour- 
quoi ? La notice a la clarté des 
étoiles, le jeu aussi, mais c'est 
beau à regarder, et ce point est 
important. De nombreux com- 
mentaires sont dans le plus pur 
style humour anglais. 
Graphisme = 3, animation = 4, 
son -2. originalité = 1, intérêt = 2. 



film, et on redécouvre la plupart 
des scènes marquantes. 
Rappelez-vous le cinéma, le 
magasin, le chasse-neige dans la 
maison, etc. Eh bien, tout y est ! 
Et même si vous avez manqué le 
film, la qualité de "Gremlins" ne 
devrait pas décevoir tes amateurs 
de jeux d'aventure anglais. Bien- 
tôt au hit-parade du logiciel ? 
Graphisme - 5, Animation = 1 . 
Son = 0, Intérêt = 4. 



GREMLINS 

«Ad ventura International 
{Warner Bros. Inc.) 
>us vous souvenez des Grem- 
lins, ces charmantes petites bes- 
tioles poilues, qu'il ne faut pas 
exposer â la lumière du soleil, 
qu'il ne faut pas mouiller et sur 
tout, qu'il ne faut pas nourrir 
après minuit ? 

Eh bien, sachez que vous êtes 
maintenant Billy. le héros du film, 
et que vous venez de faire la 
bêtise de votre vie : les Gremiins 
ont dévoré une caisse de poulets 
après minuit (ennuyeux, n'est-ce 
pas ?) ! Vous n'avez alors plus 
qu'un but . empêcher les 
méchantes bêbêtes d'envahir 
votre ville... 

"Gremlins" est un jeu d'aventure 
graphique en anglais. L'absence 
d'image de présentation est vite 
comblée par la qualité graphique 
du jeu : les écrans sont super- 
bes ' La réalisation est très 
bonne : tous les graphismes sont 
redessinés après une action 
modifiant ceux-ci (une perceuse 
dans un atelier disparaît quand 
vous la prenez, par exemple). 
Gremlins dispose en outre d'un 
vocabulaire important, dont quel- 
ques mots vous sont donnés 
dans la notice explicative (d'ail- 
leurs fort succincte I). Il est dom- 
mage que certaines scènes (en 
minorité, rassurez-vous [) n'aient 
pas d'image graphique ; elles 
paraissent alors vraiement nues 
par rapport aux autres I 
Tout ceci ne serait cependant rien 
sans un t>on scénario. Alors là, 
quel régal pour tout ceux qui ont 
vu le film avec plaisir ! Le scéna- 
rio du jeu "colle" très bien au 
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TïtEADVENTURt: 



"BATTLE FOR MIDWAY" 
En anglais 
Il (PSS) 

Un jeu bien structuré, bien pré- 
paré, nombreux tableaux : atta- 
que de l'Ile, attaque de l'escadre 
par l'aviation, combat naval avec 
ennemi au-delà de l'horizon, et le 
point de départ, une très belle 
carte pour commander les dépla- 
cements de vos escadres et des 
avions de reconnaissance. Cela 
promet I Oui, mais : le jeu est 
lent, mais surtout le scénario des 
chasseurs bombardiers (très belle 
animation) semble immuable quoi 
que l'on fasse, c'est dommage ! 
Par contre, cette critique ne s'ap- 
plique pas au combat naval. En 
somme, un très beau programme 
dont l'intérêt chute à partir du 
moment où l'on soupçonne un 
bug dans le trop fidèle ballet des 

Graphisme = 4, animation — 3, 
son = 3, originalité = 2. intérêt = 3. 



NOUVELLES 



CHEZ AMSTRAD. 
C'EST TOUJOURS 
MOINS CHER... APRES 

Le 664 sort : on se précipite et 
on l'achète. On revend son 464 
tant bien que mal et,,, deux mois 
après sort le 6128 à peine plus 
cher que le 664. La valse des 
modèles a commencé. Ne parle- 
t on pas d'un 256 k (non pas la 
bécane de traitement de texte) ? 
Pas de précipitation donc. 
Mettez-vous dans la peau du 
client qui vient d'acheter un 664 
et qui découvre le 6128 I 
Même chose avec l'imprimante. 
La DMP-1 prend sa retraite, la 
DMP 2000 lui succède. Jugez 
plutôt de l'amélioration : matrice 
de caractères mieux définie, 
vitesse multipliée par deux et., 
compatibilité avec les comman- 
des EPSON. Le prix ? 2290 F. 
Vous venez d'acheter une 
DMP-1 ? Dommage ! 

CPC. LE SUCCES 
En fait, cette revue pour son pre- 
mier numéro a dépassé toutes 
nos espérances. Le numéro un 
est pratiquement épuisé, à quel- 
ques unités près ; le numéro deux 
en est quasiment au même 
niveau. Or, nous avons livré deux 
mille exemplaires de plus pour le 
numéro trois et tl n'y en a plus à 
la rédaction ! Mis à part le pro- 
blème d'impression du numéro 
deux, nous attendons toutes vos 
suggestions. 



Chaque mois, un tirage au sort 
sera effectué parmi les nouveaux 
abonnés. Un magnifique cadeau 
sera offert à l'heureux gagnant. 



Quelques lecteurs nous font 
encore remarquer que notre 
revue semble sévère parce que 
manquant de couleur ! Il s'agit là 
d'un problème de coût et de prix 



de revient. Nous préférons 
réduire le coût en augmentant, en 
lieu et place de la couteur, le ser- 
vice lecteur. 



A NOS ABONNES 

Une série de 160 lecteurs a reçu 
son CPC n" 3 avec retard (ce sont 
ceux timbrés à 6,50 F). Nous leur 
demandons de bien vouloir nous 
en excuser. L'ordinateur (qui 
n'est pas un AMSTRADI avait 
quelque peu oublié ces abonnés I 
Nous leur demandons de bien 
vouloir nous en excuser. 



PAS DE 

COMMISSION PARITAIRE 

CPC étant une revue au service 
d'un seul ordinateur ne peut avoir 
de numéro de commission pari- 
taire. Donc, pas de routage 206, 
pas de dégrèvement de TVA 
(4,23 F l'envoi au lieu d'un mon- 
tant inférieur à 1 F, TVA 7 % au 
lieu de A %},,,, Faudra faire 
avec I 



Coup de téléphone à la rédac- 
tion : le CPC baisse. Tiens ! est- 
ce pour contrer la politique d'EU- 
REKA 10RIC) ? Non, la REDOUTE 
affichant un prix inférieur au prix 
normal, AMSTRAD FRANCE a dû 
faire face à une levée de bouclier 
des revendeurs. Du coup, AMS- 
TRAD FRANCE a baissé les prix I 



Nous vous rappelons que les 
clubs constitués peuvent se faire 
connaître : CPC leur offre quel- 
ques lignes pour se présenter. 
AMSCLUB FRANCE 
4, Impasse Truillot 
75011 PARIS 
édite un bulletin de liaison "AMS- 
TRAD Gram" qui se fait écho de 
la vie de l'association et donne 
quelques trucs et astuces per- 
mettant de se servir au mieux de 



la machine. Ajoutez à cela quel- 
ques analyses de soft et de bou- 
quins : le résultat n'est pas mau- 
vais ! 

L'adhésion et la cotisation : 
230 F. Relativement cher à notre 
avis, mais il reste à savoir si les 
services rendus ne justifient pas 
ce prix... 

En règle générale, faites nous part 
de vos observations concernant 
le fonctionnement des clubs : 
cours, services, accueil, etc. 



CLUB PICONET (CPfWI) 

Vous avez couplé un 5" 1 /4 (c'est 
indispensable! sur votre CPC ? 
Ceci vous intéresse si CPM vous 
passionne, 

PICONET est une organisation, a 
but non lucratif, filiale de "PICO 
NET Inc." située en Californie. 
Le statut de membre est pour 
l'instant gratuit, mais il faul join- 
dre à vos correspondances une 
enveloppe affranchie self adres- 
sée. 

L'échange de logiciels CPM est le 
premier service rendu par PICO 
NET France. Attention, ces logi- 
ciels ne doivent pas être commer- 
cialisés. 

Toutes les informations peuvent 
être obtenues à l'adresse : 
PICONET FRANCE - CLUB CPM 
Le Pavillon, Belle Etoile 
84760 SAINT MARTIN DE LA 
BRAQUE 
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THOMSON 

ombreux logiciels 
et livras 

I, rue Barbotin 
79300 8RESSUIRE 
Tél.: |49| 65.26.36 
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DISTRIBUTION DES PRIX 

Nous savons tous que la Rio 
grammation c'est fatiguant i Sur 
tout pour ceux qui écrivent des 
programmes courts. Nous avons 
donc décidé de récompenser les 
auteurs de KILOBYTE et ceux de 
la rubrique TRUCS et ASTUCES 
en leur offrant un superbe livre 
d aventure richement illustré de 
dizaines de photographies en 
couleurs. Ils pourront ainsi se 
détendre avant de se lancer dans 
l'écriture de programmes plus 
volumineux. 
Qu'on se le dise ! 



ORDIPUCES 85 

Microtel organise les lournées 
micro-informatiques de l'occa 
Sion qui auront lieu les 1 6 et 17 



novembre de 11 h a 19 h au 
gymnase Danton situé rue Dan 
ton à Vanues. L'entrée est gra 
tuile, et les particuliers pourront 
vendre, acheter ou échanger de 
la micro-informatique Métro 
Malakoff Plateau de Vanves 
Bus ; 58. 89. PC 



La Club Informatique Bruaysien 

LE CIB$ 

Secrétariat : 

1. rua Latérale 

62470 GALONNE RICOUART 

Siège social : Bruay-en Artois 

Réunions 

Vendredi 18 à 20 h 
Samedi après-midi 
Dimanche matin 



CALAMITES CPC 

Page 44 de CPC n° 3, à propos 
de la sauvegarde en binaire de la 
Jonction "CIHCLE". lire : 
&1D4 et non &A1D4 



S'ils sont quelque part 
c'est chez 

AMSTRAD 6128 
AMSTRAD B256 

et les derniers logiciels. 

4, rue André Chénier 
78000 VERSAILLES 
Tél.: 30.21.75.01. 



LES FONDATIONS 
D'UN PROGRAMME 




Michel ARCHAMBAULT 
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_| es premiers programmes Basic. 

_ Ld un débutant commencent I 

presque toujours par PRINT ou 
-INPUT. Vingt ou trente lignes-rq 

plus loin, on fait RUN, et tout— ^1 
__s'écroule. D» même que l'on ne 

construit pas une maison sur un _J 

sol meuble, il est suicidaire de se 
" lancer dans un programme sans ~] 

prendre des précautions dès le— ' 
_ départ. Il ne s'agit que de quel- 

ques bonnes et sages habitudes ] 



. U 



La première chose à faire, c'est 
sur papier, c'est le plan, l'itiné- 
raire, la stratégie à suivre, portant 
le nom pompeux d'ORGANI- 
GRAMME ; même si ce ne sont 
que quelques notes griffonnées 
sur une demi feuille. Nous n'en 
parierons pas, car aujourd'hui on 
va rester très terre -à-terre. 

LES NUMEROS DE LIGNES^tS 

Les numéros autorisés vont de 1 
à 65535 et chacun d'entre eux 
a le même encombrement 
mémoire, deux octets seulement. 
D'autre par!, il est très important 
de savoir que le "pas" (l'écartl 
entre deux numéros de lignes qui 
se suivent n'a absolument 
aucune incidence sur la vitesse 
d'exécution du programme. Par 
exemple, un programme de six 
—ligne numérotées de 1 à 6 (donc 
_au pas de 1), n'ira absolument 
pas plus vite que s'il était au pas 
~~de 10 000 entre 10 000 



60 000. Donc, n'avez aucune 
hésitation pour espacer vos 
numéros. 

- Dans une suite "naturelle" de 
lignes, le pas minimum est de 
10. 

- Dès la moindre transition, pas- 
sez a la centaine suivante, 
exemple la suite 600, 610, 
620, 700 (ou carrément 800). 

— Dès que l'on attaque une autre 
partie du programme, on 

Exemple : 1 220. 1 230, 2000, 
2010. 

— Chaque ligne en mille est un 
REM, exemple 3000' CAL- 
CULS DES MOYENNES. 

Ne crovez surtout pas que c'est 
"pour faire joli" ! Ce sont plutôt 
des ruses pour subir sans douleur 
les deux grandes lois de l'infor- 
matique ; à savoir ; 

1 - UN PROGRAMME NE 
FONCTIONNE JAMAIS DU PRE 
MIER COUP, 



Les principaux avantages sont les 
suivants : 

— Grâce à ce saut à la centaine 
ou au millier suivant, nous 
pourrons très facilement ajou- 
ter plusieurs lignes à tel pas- 
sage. Si vous pressentez une 
future mise au point labo- 
rieuse, sautez plusieurs cernai 
nés ou milliers. C'est gratuit 

- La localisation rapide. Exem- 
ple : la présentation de telle 

page d'écran ne vous plaît . 

guère, vous savez que c'est la 
~T "partie 8000". Alors faites : 1 
-^ LIST 8000-8900 (même si la J 



8900 n'existe pasl. Cinq 
secondes plus tard, vous avez 
identifié à l'écran la fameuse 
ligne à modifier. Si tout le lis- 
ting était continu au pas de dix 
et sans REM, il faudrait comp- 
ter au moins cinq à dix minu- 
tes pour retrouver celte 

ANNONCEZ LA COULEUFES 3 

Avant qu'un programme 
démarre, il faut fixer de nom- 
breux paramètres, même s'ils ne 
servent que vers la lin. Autre- 
ment dit, on "jette les bases". 

— Tout d'abord, en ligne 10, un 
REM où se trouvent le nom du 
programme el sa date. Pas 
celle de sa création mais celle 
de sa dernière modification 
ceci afin de pouvoir identifier 
la version la plus récente... 

— Fixer les variables entières par 
DEFINT. S'il n'y aura aucun 
nombre décimal ou supérieur 
à 32 767 ou inférieur à 
-32 768, écrire 50 DEFINT 
A-2. 

Sinon (par convention! 
DEFINT l-N, Ce qui veut dire 
que toutes les variables numé- 
riques dont le nom commence 
par tes lettres I, J, K, L, M ou 
N seront des nombres entiers 
On peut aussi écrire DEFINT 
A,B, l-P, Z. Deux énormes 
avantages : chaque variable 
entière occupe deux octets au 
lieu de cinq. Les boucles FOR 
NEXT dont l'indice est entier, 
vont deux fois plus vite I 
NOTE : La "convention" 
entiers de I a N vient du lan- 
gage FORTRAN car I et N sont 
les premières lettres du 
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"INTEGER" signifiant entier 
en anglais. D'où l'usage coû- 
tant de ces lettres comme 
indices de comptage (FOR 
1=1 TO.... N = N + 1, etc.], 
- Confirmer les paramètres 
d'écran même s'il s'agit de 
valeurs "normales", ce afin de 
ne pas hériter du celles du pro- 
gramme précédant (qui res- 
tem actives même après un 
NEW). Exemple : 
60 INK 0,1:INK1.24;INK2. 

20:INK3.6:BORDER 1 
70 PAPER0;PEN1rM0DE1: 

CLSrORIGINO.O. 
Tous les DIM sur la même 
ligne. Exemple : 
100 DIM ACS(24),NB(120), 
RESULT|12,3),REC$(64) 
Mettez cette suite en ligne 
100, parce que c'est facile à 
retrouver. Les avantages : 

• On n'a pas à réécrire "DIM" 
à chaque fois. 

• En cours de programmation, 
si on veut modifier ou ajouter 
un nouveau tableau DIM, on 
n'a qu'à faire EDIT 100. 

• Tous les DIM étant définis 
en début du programme, on 
est certain qu'un GOTO ou un 
GOSUB ne viendra pas "re- 
passer" dessus, provoquant 
ainsi un plantage avec "Redim 
Array Error" ( = tableau redi- 
mensionné). 

_LE MENU CARREFOURZ^^S 

- Avez -vous remarqué que tous les 
_ logiciels du commerce, jeux ou 

" carrefour" ? Une page d'écran 

- qui propose les options principa- 

- les, chacune d'entre elles peut 
.aiguiller sur d'autres menus ; 

mais en fin d'exécution (ou de 

"GAME OVER"), on revient à ce 

-même point de départ, d'où on 

- peut repartir vers une autre voie. 
_ C'est l'architecture type de tout 
_ programme informatique (même 

en "grosse" informatique! , c'est 
n quelque sorte le retour systé- 

- matique à la table des matières 
_d'un manuel : on va à tel chapî- 

3 ou on décide de fermer le 

- Mous ferons de même, c'est 
-facile, mais surtout si pratique : 
_Une "bonne" habitude consiste 

à ce que la première ligne de 



: 1 = titre + date et 1 00 = 
DIM. Avantage : en cas d'arrêt du 
programme, soit volontaire par la 
touche ESC ou plantage imprévu, 
il est facile de "reprendre la 
main" en conservant les variables 
en cours en tapant : 

GOTO 1000, et Enter. 

Lorsque l'on doit intervenir sur un 
programme Basic vieux de plu- 
sieurs années, c'est bougrement 
pratique, cet "universel" GOTO 
1000 ! 



lignes, que le programme fasse 
deux ou vingt kilo-octets ! Ce qui 
change, c'est la taille et le nom- 
bre de ces modules commençant 
en ligne 3000. Avantages : 
Vous avez conçu un petit pro- 
gramme qui marche bien, et tel- 
lement intéressant que vous déci 
dez de l'étoffer, d'en faire un gros 
programme. Ne le retapez pas ! 
Ajoutée des lignes aux divers 
modules, au refaites complète- 
ment tel module. Par exemple, le 
"bloc 8000" qui faisait 10 lignes 
va maintenant en faire 68 ! On 
peut créer de nouvelles options, 
donc de nouveaux sous-pro- 
grammes, et ce sans déranger le 



A la suite du menu principal, on 
a les différents départs qui, eux 
aussi reviennent à la même ligne 
(sauf pour END1, et que trouvons- 
nous sur cette ligne ? GOTO 
1000, Voici l'architecture type 
d'un programme : 

Lignes 10 à 30 
Des REM. 
Lignes 50 à 90 

Les initialisations IDEFINT. cou- 
leurs, MODE, etc.). 
Ligna 100 

Les DIM loi 

Lignes 110 à 990 
Préparatifs divers, le titre à 
— l'écran. — 

3 Ligne 1000 — 

Menu principal — option numéro Ib 



QUELQUES REMARQUE! 

- Vous voulez un joli titre avec 
animation, son, etc. Vous ne 
pouvez pas le loger entre les 
lignes 500 et 990. Faites sim- 
plement 



Ligne 1 500 

Les aiguillages du style -^ 

3 ON K GOSUB 3000. 8000, 
10000. 5000, 2000. J^ 
ja Ltgne 1510 

HGOTO 1000 Ic'est le bouclage). ~\~ 
r 1 Ligne 2000 -^ 

•"l'FINAL _ 

jLignes 2010 à 2030 Jj£; 

^Initialisations standard. 
T Ligne 2050 "TT 

r^END 

h Lignes 3000 à 65000 
_|Les différents modules, 
■a. Ligne 65535 
^'FIN DE LISTING. 

-jEn somme, le "moteur" du pro- - 

i|j gramme va des lignes 1 à 2000. 

ce qui peut faire une trentaine de 



Et "là-bas", vous aurez toute 
la place nécessaire. 
Dans notre exemple, nous 
avons prévu les lignes 2010 à 
2020 pour restituer les 
options par défaut que l'on a 
de la mise sous-tension 
[PAPER, PEN, INK, ORIGIN, 
etc.) ; seulement celles que 
l'on a dérangées en cours du — 
programme, C'est remettre I 
micro dans l'état où on I' 
trouvé. Un peu d'ordre évit 
bien des bizarreries sur le prc 
gramme que l'on charger 
après. Si vous vous êtes servi., 
d'une imprimante, mettre au^ 
début et à la fin du pro- 
gramme ; 

PRINT #8,CHRS(27I;" 
qui vi 



CONCLUSIONS 



-ges que I on pouvait urei 
^architecture rationnelle s 
fondations solides. 
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CPC 6128 

disponible. 



Nouveaux tarifs 
Nous consulter. 



MICRO-C S.A.R.L 

1. Av. du Gai. de GaulU 

3S170 BRUZ 

Tél.! 99.52.67.08 

Revendeur officiel AMSTRAD 

CPC 464 vert 2640 F 

CPC 464 couleur 3900 F 

CPC 664 vert 3700 F 

CPC 664 couleur 5140 F 

CPC 6128 vert 4340 F 

CPC 6128 couleur 5740 F 

Imprimante DML 200 (nouveau poui AMSTRAD] 2290 F 

DDM 1990 F 

FDI-1 1490 F 

Lecteur 5"U4 TEAC (voir CPC n° 2] 1490 F 

Joystick 149 F 

Cable magnéto 48 F 

Disquette 3" 55 F 

Cassette C15 7,50 F 

200 logiciels et jeu* 

20 livras (dont MIcro-appJkatlon] 

Pou/ commande. Joindre chegue ou mandat | + 30 F de port, 

PRIX SPÉCIAUX 
POUR LECTEURS DE CPC 



REDEFCAR 



Stéphane CLOIREC 



Vous qui avez tant peiné, armé 
de votre feuille de papier et de 
votre fidèle crayon, pour créer les 
caractères graphiques indispen- 
sables à vos programmes, ne 
désespérez plus ! 
REDEF'CAR va simplifier ce qui 
était autrefois une corvée, grâce 
aux différentes fonctions qui sui- 
vant : 

— Vous manoeuvrez le petit cur- 
seur dans la fenêtre d'édition 
grâce au pavé de curseur. 

— Lorsque vous appuyez sur la 
barre d'espace, la case sur 
laquelle le curseur se trouve 
change de couleur (noire si elle 
était blanche et blanche si elle 
était noirel. 

— (E) Efface le caractère de tra- 



— (Il Permet de faire une version 
"inversée" du caractère de tra- 
vail (négatif de photo). 

— (M) Comme miroir, produit 
une image retournée du caractère 
de travail par rapport à l'axe ver- 

— (Dl Cette fonction vous per- 
met de modifier ou de continuer 
un caractère déjà existant. Il vous 
faut rentrer les 8 valeurs du 
"SYMBOL", puis le programme 
vous rend la main. 

— (S) Utilisant une routine en lan- 
gage machine, ceci permet de 
conserver, sous la forme d'une 
ligne Basic (ex,: SYMBOL 140.1, 
2,4.8,16,32,64,128), le carac- 
tère que vous venez de créer. 

— (Q) Quitte le programme et 
vous permet de lister les carac- 



ATTENTION : 

— Avant chaque utilisation du 
programme, resetez l'ordinateur 
par CTRL SHIFT ESC. 

— Après avoir quitté le pro- 
gramme, et si vous avez con- 
servé des caractères par 

"SYMBOL", n'oubliez pas de les 
sauvegarder pour un éventuel 
"MÊRGE". 

— N'oubliez pas d'intéger au pro- 
gramme utilisant les caractères 
grapiques l'ordre SYMBOL 
AFTER 139. 

— Il faut faire "RUN" après avoir 
quitté l'éditeur, pour pouvoir 
visualiser les symboles créés. 




1DQ SYMBOL AFTER 129 

MO MODE i:SPEED INK 50,50 

i:0 SYMBOL 133, 195,231,52,2V 



,195, 



130 SYMEOL 134,0, 231, 20. 40,231.0,0.0 

140 SYMBOL 139, 4, B. 60. 102, 126,96.60,0 

150 INK 0,13iB0RDER 13 

160 INK I.OîINK 2,24:INK 3,2,20 

170 HINDOU #1.6.36.5. 12:PAPER #1,1 :CLS*1 

!B0 HINDOU ttl.5.37,4, llrPAPER ti,2iCLS»l 

190 HINDOU #2. 10,35, 17,19:PAPER #2,1;CLS 



200 HINDOU l 



,9,34, 16.18:PAPER 12,2:05* 



230 LOCATE #1 , A, 6 : PRINT#t , "REDEF INISSEUR 
DE CARACTERES" 
2*0 LOCATE #l,4,7:PRINT#l,STRING*<27,ljA 

250 LOCATE #2, 3, 2: PRINT #2, CHRt ( 164 ) ; " 19 

B5 St"îCHR*(139)i*phatie CLOIREC' 

260 P£N 3lL0CATE 12.24iPRINT'Chargement 




30 ' » REDEF'CAR 

4D ' * 

50 ■ # <e> S. CLOIREC 

60 ' Il 

70 ' »*#*######*#**#«# 

BD ' 

W ■ 

100 INK 3,26:L0CATE 6,24:PEN 3: PRINT" Vou 



130 ' FENETRES 

140 ' 

150 INK 0,13iINK l.OsINh 2,24:INK 3,24,1 

3:M0DE I rBORDER 13 

160 ' 

170 HINDOU #0,2,40, 23, 25:PAPER «O.lsCLS 

«0 

160 HINDOU il, 2, ll,;,ll!PAPEfl #I.I:CL5 * 

190 HINDOU 12,14,22,2, Us PAPER «2', I : CuE 

#2 

200 HINDOU #3,25,40,2, llîPAPER #3,1:CLS 

#3 

210 HINDOU #4,2,40, 14, 20: PAPER #4, 1:CI I 

220 HINDOU HO. 1,39, 22, 2*! PAPER M,2îCLS 
#0 

230 HINDOU «1. I, ID. 1,10:PAPER #I.2:Cl5 * 

1 

240 HINDOU #2,13,21,1, 10: pûper »2,2:CLS 

250 HINDOU #3.24.3='. !.10:PAPEfi #3.2:Cl5 

#3 

260 HINDOU #4,1,39, 13, 19:PAPEH (t 4, 2:0.3 

270 ' 

2B0 ' CARACTERES GRAPHIQUES 

290 ' 

300 SYMBOL AFTER 128iDEFINT A-Z:DIM VLIS 

<B>, CARIS. 8):SPEED INK 50.50 

310 ' 

320 SYMBOL 129,255,129,129,129,129.;;=.! 

29,255 

330 SYMEOL 130,255,153.153,231,231.113.! 

53,255 

340 SYMBOL 131,231,231,231,24,24,231,231 

,231 

350 5VMB0L 132,255,255,255,255,255,255,2 

55,255 

360 SYMBOL 133, 1"5. 23i , 52. 24, 44, 23 1 , 1 *5 . 



370 SYMBOL 134,0.231,20,40,231,0.0.0 

3B0 SYMBOL 135, 0, 4, 70, 123, 123. 70, 4 , : 

390 SYMBOL 136,0.0,0,248,124,0,0.0 

400 SYMBOL 137,244, 135,245,7, 120, 96,28,2 

52 

410 SYMBOL 13B, 225, 123.228,8. 1B, 37, 7!, 13 

3 

420 SYMBOL 139,4,8.60,102,126,96.60,0 

430 ' 

440 ' INITIALISATION 

450 * 

460 KEY 138, 'INK 1,0:INK 0.13:B0RDEP 13: 

PEN 1: PAPER D:MODE 2 :LIST" *CHR* l 13 J 

470 PEN 1 

480 LOCATE 2,2:PRINT CHM(137Ï(" REDEF'C 

AR ";CHRî<138) ; " " :CHRïl 16*)+" 1985 St'i 

CHR*U39>;- hane CLOIREC" sLOCATE ■ 



NT STRING*(9, 134) 

*"G NUMLIG=1:NUMSVMB=140:ADR=(,7000 

500 GOSUE 1070 

ATE #3,6,2:PRINT«3,' l CriODEr:PSINT 
»3.SPCC5)*STRING$(6, 133) 
520 IQCATE *3,3,3!PRINT#3, 'ZERO UN 1 ' 

530 LOCATE #3,3, 6: PRINTH3, STRINGil 4, 134) 
;SPC<51îSTRING*<2.134> 

540 LOCATE #4, 16,2:PRINTH4, " C0MMANDE5" iP 
RINTt4,SPC(15>iSTRINGS(9, 1 31 i 
550 LOCATE »4.1,5:PRINT>t4,' CD] MODIFIE 

[El EFFACE CQ] QUITTE' 
560 PRINT#4, ' [H INVERSE [M] MIROIR 
[5 1 SYMBOL" 
570 ■ 



ROUTINE PRINCIPALE 



530 ' 

590 ' 

600 CALL &BB1S 

610 IF INKEY(fll=0 THEN X=X-1 ELSE IF INh 

EY(1>=0 THEN X=X+1 

62D IF INKEY<0)=0 THEN Y=Y-1 ELSE [F ÎNH 

EY(2)=0 THEN Y=Y+t 

630 IF X<XMN THEN ' = ïMIN ELSE IF OXMAX 

THEN X=XMAX 
640 IF Y'YHIN THEN Ï = YMIN ELSE IF Y>YKA)I 

THEN V=/MAX 
650 LOCATE M.A.BsIF CAR(A-l,S-l)=a THËN 

PftINT »1,CHR*<129) ELSE PRINT #1,CHR«(1 
32) 



670 LOCATE *1. 
00 



INKEYI47)' .-0 THEN 



6B0 IF CARI X-1,Y-1)=0 THEN CAP< X-l , Y-l >= 
lîPRINTIIl,CHR*M31 > : OL IG( Y-I ) "VLIGf Y-l )' 
2*f9-X):L.0CATE»l2,9~LEN<STR*(VLIGiV-L H), 
Y:PRINT#2,STR*(VLIG<Y-1 ) ) rPLQT 409*X»4,2 
. -v, 1j PLOT 4rje+X*4+2,27B+I6-2*V, 1 : 
PLOT 5S0+X*2,27B*16-2»Y, JjGOTO 700 

690 CAR<X-l,Y-l>=Q;PRINTtU,CHRS(130) iVLI 
- -IG(V-l)-2 A (9-X)iL0CATE«2,6,V:PR 

WT«, ■ ">locate*2,9-len(STr*<vlis<y>] 

)n,Y:PRINT#2,STR*lVLIG<Y-l)):PL0T 408+X 
•*,27S+lû-2*Y,2îPL0T 4QS+X#4*2, 278-16-2. 
V. 2: PLOT 550*X»2,:'7B+lâ-2*Y,2 



700 i 



■ :P-=-- 



710 IF INKEY(SB)=0 THEN GOSUE 1070 
720 IF INKEY<67>=0 THEN CLStLOCATE 12,2! 
PRINT" FIN DE PROGRAMME. " iGOSUB 1640:1100 
E ZtCALL 48000:P0KE M70+LENDAT-M.Û:POhE 

& 1 7D + LENDAT*2 , : END 
730 IF INhEY(35)=0 THEN GOSUE 780 
740 IF INKEY!61)=0 THEN GOSUE 930 
750 IF INKEY<38)=0 THEN GOSUE I22G 
760 IF INK£Y(60>=0 THEN GOSUE [380 
770 GOTO 60G 
7B0 ' 



790 ' 



ROUTINE 'INVERSE' 



ROUTINE 'MODIFIER' 



800 ' 

810 FOR 1=1 TO SsVLIGI I)=0:NEXT I 

820 FOR J=I TO BsFOR 1 = 1 TO 8:IF CAHtI.J 

1=0 THEN CAR(I,J>=1 ELSE CAR(I,J)=0 

830 IF CAR(I,J)=1 THEN VLIG !J)=VLIGi J)*2 

*£B-11 

B40 NEXT I,J 

850 FOR J=l TO SïFOR 1=1 TO 8 
860 LOCATE »I,I+i,J+l:IF CARU.J> = 1 THEN 
PRINT #1,CHR*(132) ELSE PRINT *1,CHR*U 
29) 
870 IF CAR(I,J)=1 THEN C0UL=1 ELSE COUL= 

880 PLOT 40B*(I + n*4,27B+16-2*-<J-H >,COU'_ 
:PLOT 40B+1I+1 1*4+2, 279+1 6-2* (J+ : 
PLOT 550+ ( 1*1 )«;, 279+IÛ-2X J+l ) . COUL 
89D NEXT I,J 

900 IF FLAG=1 OR FL1=1 THEN RETURN 
910 GOSUE 1190 
920 RETURN 
930 " 
940 ' 
950 ' 
960 GOSUE 1070 
970 PRINT CHR*(7) 

960 CL5:L0CATË 10. 2: PRINT"ENTREZ VOS VAL 
EURS. ■ 

990 FOR 1 = 1 TO 8:LÙCATE 02. 6, I + 1 : PP INT«2 
"îLOCATE 112,6, 1 + 1 : INPUT 02.'.", VLIG 

(I)iïF VLIGUKO OR W.IG<ï>>253 then [=: 
-1 

1000 NEXT I 

1010 GOSUE 1190 

1020 FOR J=l TO 9:LIG*=EIN*(VLIG(J)):F0F 

1=1 TO LEN(LIGS) :PT=VALf MID«<LIG$. I, 1 ) 
!CAR(8-LEN(LIGï)*I, J)=PT:NEXT I, J 
1030 FLAG=1:G0SUE 850:FLAG=Q 
1040 LOCATE 2, 2: PRINT CHRi<137);" REDEF' 
CAR ■ ; CHRS ( 1 38 ) : " " : CHR1 < 1 64 1 - ' : ■ ■ 
iCHR*(139))"plïar,* CLOIREC ILOCATE 4,3sPR 
INT 5TRIN6i(9,134> 
1050 GOSUE 1190 
1060 RETURN 
1070 ' 

1080 ' ROUTINE 'EFFACE' 
1090 ' 

1 100 ERASE VLIG, CAR 

1110 FOR 1=1 TO 8:L0CATE »1, 2, I+llPRINT« 
l,8TRINS*(S,129)i«EXT I 
1120 LOCATE (Q,l,7sPRINT#3,SPACES(4BJ 
1130 PLOT 39B,266, liDRA-IR 0.32:ORAWfi ba. 
0:DRAWR 0,-32lDRAWR -66,0 
1140 PLOT 529.266. 1:DPA«R G.j2:DRAUR o-. 
OîDRAUR 0.-32:PRAWR -64,0 
1150 PLOT 414,274 1 3:0RAUR 34,0:DPAUR j. l 
SrDRAUR ~34,0:DRAWR. D.-1B 
1160 PLOT 552,274:DRAWR 18,0:DPAUS 0.19: 
DRAUB -1B,0:DRAWR D.-1S 
1170 IF FL1=1 THEN RETURN 



I1BD DIM CAR<B,8>,VLIG<Bi 

1190 XMIN=2::<MAX=9:VMIN=2:YMAX=<>:A=2:E.=2 

iX=2(Y=2iL0CATE*l,X,Y!lF CARI X-l.Y-1 1=1 

THEN PRINT*1.CHRS(13U ELSE PRINT #1,CHR 

«(130) 

1200 FOR 1=1 TO 8:L0CATE #2, 2, 1 + 1 i PRINT 

*2.CHR*< 136) ;MIDÏ'5TR*( [),21 SCHR*< 1351 ?S 

PC<4-LEN<STR«tvLIG<I)>));STR<(vLIG<I))!N 

1110 RETURN 
1220 ■ 

1230 - ROUTINE 'MIROIR' 

12*0 ' 

:;50 FL1=1:CLS:L0CATE 12, 2: PRINT" FONCTIO 

■i EN COURS" iPRINT CHR*<7) 

1260 SOSUB 1U0:ERASE VLIG 

1270 DIM CARHS,B),VLIG<8t 

1200 FOR J=l TO 8:F0R 1=1 TO 8:CAR1!I.J> 
=CAR<9-I. J>:NEXT I.J 

1290 FOR J=l TO B:F0R 1=1 to B:CAR(I,J>= 

CAHIU,J>:NEXT I,J 

1300 ERASE CAR: 

1310 SOSUB 850 

1320 FOR J=l TO BiFOR 1=1 Tl -' 9=' F CAH(I, 

Ji = l THEN VLIG(Jl=VLIGIJ)+2*(8-Il 

1330 NEXT j,J 

1340 SOSUB 1190 

1350 LOCATE 2.2:PR1NT CHRK137);" BEDEF' 

CAR * ;ÇHRslI3BI;" " i CHRtI 1641*" 19B5 St" 

;CHRl(139):"phane CL01REC" iLOCATE 4,3;Pfi 

INT STRINGS19,134> 

1360 FL1=0 

1370 RETURN 

1380 ' 

1390 ' ROUTINE 'SYMBOL' 

1400 ' 

1410 CLSiLOCATE 12,2:PRINT"SYMB0L EN COU 

RS'*CHR*(7> 

1420 1=1: IF ADH=Ï7000 THEN LENDAT=32 

1430 POKE ADR, 33 
" ADR+1,0 

1450 POKE ADR*2,NUMLIG 

1460 POKE ADR+3,0 

1470 POKE ADR+4,207 

1480 POKE ADR+5,32 

14=0 P0K6 ADR-6,25 

1500 POKE ADR+7.NUMS'ME. 

1510 FOR BC=ADR*S TO ADR+29 STEP 3 

1520 POKE BC,44:P0KE BC+1,23(P0KE BC+2.V 

LIG(I) 

1530 1=1+1 

1540 NEXT BC 

1550 POKE ADR+32,0 

1560 ADR=ADR-33 

1570 NUMLIG=NUMLIG*1 

15B0 NUrtSYrtB=NUMSYMB+l 

1390 LENDAT=LENDAT+33 

1600 FOR att = l TO IOOOîNEXT att 

1610 LOCATE ll,2iPRINT"EFFACEMENT 10/N) 



?":IF INKEY<34)=0 THEN SOSUB i 100 ELSE 
IF INKEY{46)OD THEN 1610 
1620 LOCATE 2,2:PRINT CHRSU37):' REDEF' 
CAR "tCHR*<130);" ';CHR*< 164)*' 1985 St' 
:CHR«U39J {"phane CLOIREC" jLOCATE 4.3iPR 
INT STRINGK9, 134) 
1630 RETURN 
1640 ' 

1650 ' IMPLANTATION OU L.M. 
1660 ' 

1670 RESTÛRE 1770 
16B0 FOR BC=ÊBOOO TO &BOOO+U 
1690 READ C4:C=vAL< "!<"+C*) 
1700 POKE BCC 
1710 NEXT 

1720 P*»HEX»(LENDAT> 

1730 IF LEN(Pî)'^4 THEN P»="0'+P*[SOT0 I 
730 

1740 POKE 6-8007, VALrîT + ftlGMTSlP*. 2 l I 
1750 POKE &8008.VALC&"+LEFT*(PS,2i > 
1760 RETURN 

1770 DATA 21,00,70,11,70,01 
1780 DATA 01,00,00,ED,BO,C 
1790 ' 

1BU0 ' INSTRUCTIONS 
1B1D ' 

1B20 MODE 2îINK 1,0 
1B3D LOCATE 16, 1 : PRINT" REDEF' CAR' îLOCATE 

16,2:PRINT STR1NG* < 9, 133 ) 
1B40 PRINT: PRINT sPRINT: PRINT" Redef ' ca 
r est, comme son nom l'indique, un redef 



i de i 



\b 



1B6D PRINTiPRINT SPCUO);'- EFFACE : vi 
de le caractère gui était a l'affichage" 
1670 PRINT SPC(IO);'- INVERSE î produit 

une image inversée du caractère de trava 

1GQ0 PRINT SPCUOlj'- MODIFIE : permet d 

e taper les codes d'un symbole pour modi 

fication" 

1890 PRINT SPC(ID);'- MIROIR : retourne 

le caractère de travail' 
1900 PRINT SPC! 10):-- SYMBOL : stocke 1 

1910 PRINT SPC110)!'- QUITTE ! arrêta 1 
e programme et affiche les caractères au 
art ete':PRINT SPC( 22) ; " 5t0ck.es avec la" 
fonction 'SYMBOL'" 
1920 LOCATE 1.25iPRINT" Appuyer sor une t 

1930 CALL &BBlBîCALL 4EBÎB 
1940 RETURN 



CARRE MAGIQUE 



Voua aimmx jouer avec J«* nombru ? Voie/ un programma 
capablm dm ginmrmr dm* carré* magique». Comment ? voua no 
connaît**! pat ? tuaymx pour voir f 



Vn canô magique est un 
carre divisé en cellules 
dans lesquelles les nom- 
bres entiers à partir de 1 sont 
arrangés de telle manière que les 
sommes de chaque ligne, de cha- 
que colonne et de chèque diago- 
nale soient égales. 
Ce otogramme vous calcule tous 
les carrés magiques d'ordre N 
impair dont le maximum est fixé 
à 91 . En effet, à partir de 93, la 
mémoire déborde (Memory Full). 
Le tableau B(K. L) est un tableau 
intermédiaire utilisé pour le rem- 
plissage des cases par des nom- 
bres T qui sont transférés au fur 
et è mesure dans le tableau Ad, Jl 
après vérification que ladite case 
est bien "inoccupée" ; dans le 
cas contraire, il faut le mettre ail- 
leurs (voir organigramme). 
L'impression du carré magique se 
fait en alignement par lignes et 
colonnes uniquement jusqu'à la 
dimension 14 ; au-délè, comme 
il est impossible d'imprimer tou- 
tes les colonnes sur une même 
ligna, il est donc affiché ligne par 
ligne. D'autre part, il y a la pos- 
sibilité de vérifier la fiabilité du 
carré magique affiché. 
La durée de calcul d'un tableau 
91 x 91 est d'environ 5 minutes. 

LISTE DES VARIABLES 



CPT ; comonur ierv«ni a 

[Je la boucla, une le 

: ulillMr dsns TAB p 




PRESENTATION 



16U LOCATE 3.11:PRIMT BTRINS$(1, CHR»(211 
iCATE IB.IisPBINT STRINSS< 1 , CHR*(20 
:ATE 3,12:PSINT BTRING*< 1.CHRS1211 

:ATE ifl,12:PHINT STRING*< 1 , CHR*<20 

- 

20Û LOCATE 3,13:PRINT 5TRIN5ÏI I . CHRî i 21 1 

! I 

2IC LOCATE ;9.I3:PRINT STRINGî( 1 , CHRî! 20 

ATE 3,Î4:PRINT 5TRI"JGÎU,CHRt(2H 

ZSa LOCATE 1S.14:PPINT STRIN6*(1,CHH*<20 

- I 

■ME 3,15:PRINT BTRIN6K l, CHM(211 

■■TE 1&. 15:F>RINT 5TRlNG*ll.CHR*CO 
91) 

.-TE 3,16:PRINT STRINGK 16. CHR«( 20 
Bll 

270 LOCATE 4,13:PRINT CHRS( bl J+CHRÏ' 65 ) + 
CHRS<B2)+CHR*<B2>+CHR* <(><?> + '' "+CHRS177) 
*CKRt(£5>+CHR*(71 >*CHR$<73 >+CHRï< SI J + CHR 
*<95>+CHRï<69) 

R f=1 TCi 1200 : NEXT F 
290 ■ 
3UD ' 

310 CLS : MODE 2 
320 DEFINT A-M.O-Z 
330 PRINT:PRINT:PRINT:PRINT 

3*0 PRINT* , ENTREZ LA DIMENSION DU C 

ARRE MAGIQUE î'îilNPUT N 

350 PRINT 

3t>0 IF NOINT(N) THEN PRINT CHR*<7):PRIN 

T" * LA DIMENSION DU CARRE MAGIQUE DOIT 

ETRE UN NOMBRE ENTIER NATUREL. DESOLE !" 

sSOSUB I74O:G0TO 310 



370 IF N<3 THEN PRINT CHRS i7 I : PRINT* * L 
E CARRE MAGIQUE NE PEUT EXISTER QUE POOfl 
UNE DIMENSION SUPERIEURE A 2" iSOSUB 17*. 
OlSOTO 31D 

3B0 IF N>91 THEN PRINT CHR*(7> ! PRINT" » 
IL EST IMPOSSIBLE DE FAIRE LE CALCUL POU 
R UN CARRE MAGIQUE D'ORDRE 

SUPERIEUR A 91, CAR LA MEMOIRE DEEOR 

DE. VRAIMENT DESOLE ' "îGOSUE 1740îG0T0 3 

10 

390 Q=INT<N/2) 

400 IF N/2=0 AND N<=?1 THEN PRINT CHR*<7 

IjPRINT' » JE NE TRAITE QUE DES CARRES M 

A5IÛ.UE5 D'ORDRE IMPAIR. DESOLE "îGOSUB 

1740:GOTO 310 

410 M=N+1 

420 DIM A(N,N),B<M,rt) 



-INITIALISATIO 



N DU TABLEAU A 

450 ' 

46D FOR 1=1 TO N 

470 FOR J=l TO N 

4S0 A(I,J)=0 

490 NEXT J : NEXT 1 



DU TABLEAU B 

520 ' 

530 FOR k=l TO M 
540 FOR L=l TO M 

550 B<K,L>=0 

560 NEXT Li NEXT I 

570 ' 



-INITIALISATION 



550 - 

RRE MAGIQUE - 



• CALCUL DU CA 



590 ' 

600 PRINTîPRINT 

filE FOR F=l TO NîNEXT F ; PRINT" FAT 

IENCE S.V.P., JE CALCULE <« " 

620 PRINT:PR1NT 

630 T=0;I=0:J=0îI\=0îL=0 

640 K=CINT(N/2) 

650 L=INT(N/2t 

660 K=K*1 

670 L=L+1 

6B0 T=T+1 

690 B(K,L)=T 

700 IF k:N THEN GOTO 740 

710 IF L>N THEN GOTO 730 

720 I=K î J=L s GOTO 770 

730 I=h : J=M-N : GOTO 77D 

740 IF L>N THEN GOTO 760 

750 I=M-N ! J=L : GOTO 770 

760 I=M-N j J=N 

770 IF A(I,J)=0 THEN GOTO 820 

7B0 1=1*1 

790 IF I>N THEN I=M-N 

BDÛ IF J>=2 AND J<N OR L=N THEN J=J- 1 

910 GOTO 770 



CARRE MAGIQUE 



890 ' 

9DO CLS : MODE : 

910 PRINT TABill 

D'ORDRE :'; 
920 PRINT:PRINT:PRINT 
930 D=D 

9W FOR 1 = 1 TO N 
950 FOR J=l TO N 
960 D=D+J 

970 PRINT TAE<3*D) AU,J> ; 
980 D=D*1 
990 NEXT J 
1000 D=0 
101D NEXT 1 

io:-o goto nao 

1Q30 ' 

1040 ' IMPRESSION DU CARRE MAG1ÛU 

E D'ORDRE SUPERIEUR OU EGAL A 15 

105Ù ' 

1C6Q PRINT CHR*(7): PSI NT "POUR UN CARRE 

MAGIQUE D'ORDRE SUPERIEUR A 13, IL ES' I 

MPOSSIELE D'AFFICHER TOUTES LES COL 

ONNES DU CARRE MAGIQUE SUR UNE MEME LIGN 

E. AUSSI, ON SE PROPOSE DE L'AFFICHER LI 

GNE PAR L I GNE . " : GOSUE 1740 

1070 PRINTïPRINTiPRINT 

1080 CLS i MODE 2 

1090 PRINT TAE( i 

UE D'ORDRE : " ;h 

1100 PRINTïPRINTiPRINT 

1110 FOR 1=1 TO N 

1120 PRINT"LI5NE " : I : " : "; 

1130 FOR J=l TO N 

1140 PRINT AU. J) ; 

U5D NEXT J 

1160 FR1NT;PRINT:PRINT 

1170 NEXT I 

1180 PRINT:PR:NT:PRINT:PRINT" WOUUE 

Z-VOUS EFFECTUER UNE VERIFICATION DE CE 

CARRE MAGIQUE (0/N) " ::INPUT Rï 

1190 IF R*O"0" AND Ri:"o" AND RfO'N" 

AND R*<>*n" THEN PRINT CHRt ( 7 ) : PRINT : PRI 

NT"ERREUR !!! REPONDEZ PAR OU N" :GOT0 

11B0 

12DQ IF R*="N" OR R* = "n" THEM GOSUB lii70 

: GOTO lu 10 
1210 PRINTiPRINT 
1220 CLS : MODE 2 

1230 PRINT TAEI10J " LA 

GUE LIGNE DU CARRE MAGIQUE 
1240 PRINTïPRINTiPRINT 



■ CARRE MAGIi 



SOMME DE CHA 



1250 FOR 1=1 TO N 
1260 FOR J=l TO N 
1270 Sî-S!+AtI,J) 

12BÛ NEXT J 

1290 PRINTiPRINT TABC 16 > "LIGNE " : I ! " ; 

SOMME =";S' 

13U0 S'=0 

1310 NEXT I 

1320 PRINT;PRINT:PRINTiPRINT 

1330 GOSUE 20+0 

1340 CLS : MODE 2 

1350 PRINT TABUO) " LA SOMME DE CHA 

QUE COLONNE DU CARRE MAGIQUE 

1360 PRINT:PRINT:PRINT 

1370 FOR J=l TO N 

13B0 FOR 1=1 TO N 

1390 S!=S!+A(I,J) 

1400 NEXT I 

1410 PRINTiPRINT TAB( 16) " COLONNE "sJi": 

SOMME ="iS' 
1+20 S'=D 
1430 NEXT J 

1++Q PRINT:PRINT:PRINT 
1450 GOSUE 2040 
1+60 CLS : MODE 2 

1470 PRINT" LA SOMME DE CHACUNE DES 2 

DIAGONALES PRINCIPALES DU CARRE MAGIQUE 

1480 PRINTïPRINTiPRINT 
1490 FOR 1=1 TO N 
1500 J=I 

1510 S'=S'+A(I,J) 
1520 NEXT I 

1530 PRINT:PRINT TAB( 10 ) "SOMME DE LA 1ER 
E DIAGONALE :";S' 
15+0 S'=0 

1550 FOR I=N TO ! STEP -1 
1560 J=l 

1570 S'=S'*A<I.J> 
15B0 NEXT I 

1590 PRINTiPRINT TAE< 10 ) "SOMME DE LA 2EM 
E DIAGONALE :"sS' 
16DD GOSUB 1670 

1610 PRINT:PRINT:PRINT" ==='.■ VOULEZ-VOUS 
FAIRE UN AUTRE CARRE MAGIQUE (0/N) "sti 
NPUT At 

1620 IF Aï: "0" AND Aï ■: ■■"□" AND Ai : "N" 
AND fi«<>"n" THEN PRINT CHRK7) j PRTNTi FRI 
NT"ERREUR '!'. REENTREZ OU' N" : GOTO 161 


1630 IF A*="0" OR A«="o* THEN RUN 
1640 PRINTiPRINT 
1650 END 
1660 PRINTiPRINT 

1670 ' SOU5-PR0GRAMME DE REï 

NITIALISATION DES VARIABLES 

16D0 ' 

1690 ERASE A,B 
1700 RETURN 
1710 ' 



■ SOUS-PROGRAMME 



: LA TOUCHE - 



1740 BVMBOL 
1750 SYMBOL 
1760 SVMBOL 
123. I2B 
1770 SYMBOL 
17S0 SYMBOL 
179Q SVMEOL 



AFTER 30 

12B.63.63.33. 33. 1,1, 1,1 

129,252,252,132,132,120,128, 

130. 1,1.1. 1.3.3 

131. 128, 128, 128,128, 192, 192 

132. 15.15.112. 112.224. 22-. 22 



1800 SVMEOL 133. 2-4. 224. 56. 56. 28 



IB1C SYMBOL 

1B20 SYMEOL 

1B30 SVMEOL 

1840 SYMBOL 

1850 SYMBOL 

1860 SYMBOL 

1670 SYMBOL 



1880 SYMEOL 

1B°Û SYMEOL 

1900 SYMBOL 

1910 SYMEOL 

1920 SYMBOL 

1930 SYMEOL 

1940 SYMBOL 

1950 SVMBOL 



137,28, 28. 28, 28,28,28,28,28 

138.56.56.56.56,15.15 
l 39.28,28, 2B.2B, 240, 240 

140.31,31.112.112,224,224.22 

141. 240, 240. 28. 2S 
142.224.224,112,112.31.31 
143, 0,0, 28. 2B. 240, 240 
144,56.56.5o,56.5;,.56,63,63 



145,28,28,: 



2S.2B. 2B.25 2 



146. 56, 56, 5û, 56, 56,56 
147,2S,2B,28,2S,28,29 

14B. 255. 25 5. 56.56,56,57. 



1960 SVMBOL 149,252,252.12.12.0.128,128. 

12B 

1970 SVMEOL 150.57.56.56.56.255,255 

1980 SYMBOL 151. 128.0, 12, 12,252,252 

1970 SVMBOL 152.1,3,6,12.24,48.96.192 

2000 SVMBOL 153. 192. 96. 4B. 24. 12. 6. 3. : 

2010 SVMBOL 154.0,0.0.0.0.0.0.0 

2020 SVMEOL 156.128,192.96,49,24.12.6.3 

2D30 SYMBOL 157,3,6.12,24,48.96,192.123 

2040 PRINT:PRINT 

2050 LOCATE 33.23:PRINT CHRï ( 152 > : ; P9 I ht 

CHRlt 154) i i PRINT CHR.K 12B)î:PRINT CHRïi 
129)(:PRINT CHRSt 132) i :PRINT CHR*(133':: 
PRINT CHR4U36) : :PRINT CHRSf 137) :: PRINT 
CHRSf 140): :PRINT CHR*(141);! PRINT CHfiï' 
144ii:PRlNT CHRSU45)::PRINT CHR*( 148 ;: 
PRINT CHRî< 149) 
2060 LOCATE 47,23:PRINT CHRÏ ( 154 ) ; : PRINT 

CHR6U56): 
2070 LOCATE 33,24:PRINT CHPSU53) : : PRINT 

CHR$(154) ;:PRINT CHRS(1301::PR1NT CHRïl 
131)::PRIMT CHRÏU34>::PRINT CHR*U351:i 
PRINT CHRS< 130) ; :PRINT CHR*( 139 ) ; : PRI '1T 
CHRîU42t;:PRINT CHRSf 143) ;: PRINT CHRi . 1 
46)::PRINT CHRÎI147); :PRINT CHR$U50> : :P 
R1NT CHRÏI151 ) ; 
2080 LOCATE 47,24:PRINT CHRS ( 154 ) ; : PH 1 tfl 



CHR' 



THEN ' 



iTO 209Q 



Avis à tous les chasseurs de 
Hag-ships. de gloutons et de 
space-invaders : Montez sur la 
plus haute marche du podium en 
nous envoyant les high scores 
réalisés sur vos jeux d'arcade pré- 
férés. Votre nom figurera alors 
dans le tableau d'honneur de 
CPC. 

Il suffit pour cela de nous envoyer 
le nom du programme, votre 
nom, votre score et une photo- 
graphie d'écran en noir et blanc 
ou en couleur permettant d'au- 
thentifier voire performance. 
Mais attention, tout ceci n'est 
valable que pour les programmes 
pour lesquels on ne peut pas 
régler les paramètres de jeu ni 
changer de niveau. Nous avons 
un jury constitué de jeunes Ams- 
tradmaniaques qui se chargeront 
de détecter et d'éliminer toute 
e tricherie. Alors, tous 
s joysticks et bonne chance ! 



55 



Xeg JUccrîrg 



& 



JEU 


SCORE 


AUTEUR 


ELECTRO FREDDY 


1650 


Emmanuelle GEORGET 


ROLAND IN THE 


865144 


Stéphane CLOIREC 


CAVES 






HUNCHBACK 


101700 


Stéphane PR UNI ERE 


GALAXIA 


3720 


Yannick BOUREE 


FRUITY FRANCK 


11320 


Eric FAUREZ 


(Slowl 






SURVIVOR 


457300 


Stéphane FRANCK 


DEFEND OR DIE 


177150 


Christophe SURAT 


MAN1C MINER 


18986 


Stéphane FRANCK 


SPANNERMAN 


359O0 


John PERELLI 


SPACE HAWKS 


71550 


Fabrice BAUER 


HARRIER ATTACK 


122240 


Alain COMBOT 


3D-INVADERS 


2189 


Stéphane PRUNIER E 


FIRE-ANT 


14900 


Yannick TERTRE 


LASER WARP 


15360 


Nicolas CLOAREC 


ROLAND GOES 
DIGGING 
PlNBALL WIZARD 


101L15p 


Philippe ANGEARD 


7970 




(vitesse 5) 






ALIEN BREAK-IN 


42240 


Raphaël BERNARD 




ANGLAIS/FRANÇAIS 



Michel ARCHAMBAULT 



Lorsque l'on se débat avec 
une notice en anglais — 
c'est hélas fréquent — on 
se dit souvent "j'ai déjà recher- 
ché ce mot dans le dictionnaire 
et je ne m'en souviens plus". 
Alors, changeons nos habitudes : 
avant d'attaquer une lecture 
anglaise, lançons ce programme 



Mot inconnu ; on le tape au cla- 
vier. S'il est déjà au fichier, 
réponse presque instantanément 
(environ une secondai, s'il ne 
l'est pas, dictionnaire. Une fois la 
traduction trouvée, vite option C 
I ~ compléter] pour gonfler le 
fichier de ce nouveau mot anglais 
et ainsi de suite. A la fin, on sau- 
vegarde le fichier ainsi augmenté. 
Le mien contient déjà 286 mots 
(ceux que je risque d'oublierl et 
ce n'est qu'un début... 

Ce logiciel est donc un gestion- 
naire de fichiers meis "très spé- 
cialisé", conçu uniquement pour 
cet usage, ce qui lui confère des 
performances que ne pourrait 
avoir un "gestionnaire à tout 
faire" du commerce. Y compris 

certains progiciels * 

IBM-PC ! 



SES PARTICULARITES 

— Un seul et unique menu. On a 
supprimé les questions inutiles 
genre "nom du fichier à char- 
ger", puisque c'est toujours le 
même et qu'il se charge dès le 
départ... 

— Chaque fiche n'a que deux 
rubriques : mot anglais + sa tra- 
duction française. Elle tient sur 
une ligne d'écran, avec son 
numéro. 

— De ce fait, la saisie et la lec- 
ture se font en "plein écran". Il 
est en effet utile de pouvoir lire 
quelques lignes plus haut la fiche- 
mot que l'on a demandée il y a 
quelques minutes... Vous voyez 
pourquoi, 

— Au menu principal, il suffit de 
taper la lettre initiale de ce que 
l'on veut faire (sens ENTERI. De 
haut en bas, nous avons : 

A : Anglais vers français (c'est 
la plus utilisée I). 

F : Français vers anglais. Eh, 
oui I La recherche se fait 
indifféremment dans les 

C : Compléter le lexique. 
M : Modifier une fiche (correc- 
tion d'erreur). 



Viennent 






moins fréquentes : 

E ; Enregistrement du fichier 
(s'il a été complété ou cor- 
rigé), 

T : Tri alphabétique (par les 
mots anglais). C'est, avou- 
ons-le un petit luxe quasi 
inutile. 

I : Impression du fichier sur 
imprimante, un autre gad- 
get... 

Q : Quitter le programme ( = CLS: 
END). 

— Quand on est dans l'une des 
rubriques courantes, il suffit de 
taper Q et ENTER pour revenir au 
menu. Ce retour est automatique 
pour les options E, T et 1. 

— En recherche "A" ou "F" four 
le fichier est exploré de haut en 
bas à chaque demande, avec affi- 
chage des lignes-fiches satisfai- 
sant la demande. Un bip sonore 
signale la fin de son travail. Pour t±d 
286 fiches, la durée est de 1,2 E 
seconde... 

— On peut demander le mot 5 
exact ou une partie du mot en fai- y 
sent suivre d'un astérisque •. ~i 
Exemple : .$ 
Je demande BLOW UP ; il l'a, il c 
affiche : I 
n° 43: BLOW UP- SE PLANTER | 
Si j'avais demandé BLOW-UP, è 



pas de réponse. Mais je l'aurais 
eu en demandant BLOW-. En 
demandant UP«, il m'aurait affi- 
ché les lignes de BLOW UP, SET 
UP, SUPPLY, etc.. Vu ? 
La recherche avec un tronçon de 
mot n'est pas plus lente qu'avec 
le mot intégral. 

- La correction d'une fiche est 
très rapide L'ancienne version 
apparaît à l'écran en bleu clair, 
vous écrivez en-dessous en 
jaune. Si l'un des deux mots n'est 
pas à corriger, faire ENTER quand 
le curseur est dessus, il sera 
conservé. 

Il V a encore de nombreux petits 
détails sympathiques, mais étant 
de moindre intérêt, nous en par- 
lerons plus loin. 

Le fichier de l'auteur ne peut 
occuper les pages du "CPC", en 
revanche, il sera logeable sur la 
disquette bimensuelle commer- 
cialisée par SORACOM. Vous 
pourrez alors le compléter à votre 

A présent, analysons un peu le 
listing. 



- Lignes 50 à 70. c'est la parade 
habituelle contre le bug AMS- 
TRAD de l'OPENOUT (voir CPC 
n° 31. 

- Le tableau DIM M$(900,1); 
(MS = mots!. Fixé très arbitraire- 
ment à 900, voire 999, il pourra 
par la suite être modifié bien au- 
delà. La colonne 0, c'est le mot 
anglais limité à une longueur de 
1 4 ; la colonne 1 , c'est la traduc- 
tion française, chaîne limitée à 21 
caractères. 

- Ligne 2S0 : SUPER IMPOR- 
TANT ! Ce GOTO 1000 ne va 
servir que pour la première fois 
parce qu'il n'y a pas encore de 
fichier à lire. Dés que le fichier 
ANGLOFRA aura été enregistré 
(même avec quelques mots), il 
faudra effacer cette ligne ou 
intercaler un REM (apostrophe!. 
Si vous avez un lecteur de dis- 
quettes, le fichier sera sur la 
même face que le programme, en 
ce cas, vous ajouterez la ligne ; 

315 GOTO 400 

- Ligne 350. CALL &BB06 
stoppe le programme jusqu'à ce 
que l'on frappe une touche. 



LE MENU 

Toujours en ligne 1000 (mon 
"standard"), car en cas d'annui 
il suffit de faire ESC et GOTO 
1000. 

Le nombre de mots NF apparaît 
en haut à droite de l'écran. 
La ligne 1 1 50 et le modèle 
50000 sont de vieilles connais- 
sances. Je rappelle que le module 
50000 ("Réponse a un menu") 
est un sous -programme utilitaire 
enregistré que l'on joint au pro- 
gramme en cours d'écriture par 
MERGE "MENU". 
En ligne 1160, GOSUB vers le 
sous-programme demandé, puis 
retour en 1000, ou fin du pro- 
gramme en 1520. 

RECHERCHE DES MOTS 

En ligne 2000 (option anglais) ou 
2500 (option français) P est le 
numéro de la colonne du tableau 
DIM è explorer. Puis tout le tra- 
vail se fait en GOSUB 3000. 
En haut de l'écran, la fenêtre 
WINDOW # 1 sert à rappeler le 
mode d'emploi (l'astérisque et Q 
pour quitter) et à entrer le mot 
MS à chercher. Celui-ci est mis 
en majuscules, puis on examine 
s'il est terminé par • ; en ce cas 
il en est dépouillé et traité en 
3500 à l'aide de la fonction 
INSTR. Si pas d'astérisque, trai- 
tement par ■ , Dans les deux cas, 
on vérifie que la longueur autori- 
sée n'est pas dépassée. 
A chaque occurence rencontrée. 
la ligne réponse est affichée à 
l'écran. Scrolling normal lorsque 
l'écran est plein. Un bip sonore, 
CHRSI7I prévient de la fin de la 
recherche de 1 è NF. 



LA MODIFICATION 
(ou correction) 
Ligne 5000 

On met le flag MODIF = 1 puis 
renvoi en GOSUB 10000 : ce 
sous-programme est le plus gros 
puisqu'il est commun avec la sai- 
sie de nouveaux mots. 
La fenêtre WINOOW # 1 comporte 
quelques légendes et l'entrée du 
numéro de la fiche è corriger. 
L'ancien contenu apparaît en bleu 
clair, le curseur se place d'abord 
sous le mot anglais que l'on peut 



retaper (en jaune), ENTER ; le cur- 
seur va ensuite sous le mot fran- 
çais, idem. Généralement, l'un 
des deux mots n'est pas à modi- 
fier, taper alors ENTER pour le 
conserver. 

Si on s'est trompé de numéro de 
fiche (cela arrive... ), on presse 
donc deux fois la touche ENTER 
pour ne rien modifier. Il y a lu 
CLS après chaque corrrection de 

L'ENTREE DE 
NOUVEAUX MOTS 
(ligne 10000) 

La fenêtre supérieure ne sert qu'à 
légender, ce qui laisse 19 lignes 
pour l'écran de saisie. Lorsque 
celui-ci est rempli, il n'y a pas de 
scrolling mais un CLS ; c'est 
dommage, mais je n'ai pas réussi 
à faire autrement, à cause de ces 
deux LINE INPUT sur la même 
ligne à la suite d'un PRINT 
USING. 

La longueur de chaque mot entré 
est vérifiée ; s'il est trop long, il 
est tronqué. UPPER$ le met en 
majuscules. 

SUPER ULTRA IMPORTANT I Le 
LINE INPUT autorise l'entrée de 
divers signes de ponctuation tels 
que virgule, apostrophe, etc.. 
mais n'entrez surtout pas de 
GUILLEMETS ! Il les accepte, tant 
que le fichier est en RAM ; 
enregistrez-le et rechargez-le, et 
c'est le désastre à partir du pre- 
mier guillemet (décalage). C'est 
un petit bug AMSTRAD à la lec- 
ture par la commande INPUT # 9. 

LE TRI 
(ligne 7000) 

C'est le banal "tri à bulle" par 
ordre alphabétique des mots 
anglais. Nous avons vu que le 
désordre ne peut ralentir la rec- 
cherche de mots, alors à quoi 
sert-il ? A rendre le listing sur 
imprimante plus présentable : en 

gadget. En fait, il présente deux 
autres intérêts : le dépistage de 
doubles en examinant le listing. 
Une future et éventuelle exten- 
sion du logiciel qui utilisera la 
"recherche par dichotomie". On 
en parlera en annexe... 
Attention, un tri à bulle est très 




lent, cela peut faite des dizaines 
de minutes pour quelques centai- 
nes de fiches... 



L'IMPRESSION 
(Non* 8000) 

Vous avez déjà le listing de votre 
fichier de 300 mots, vous venez 
d'en ajouter une quinzaine : il est 
donc pratique que le programme 
vous demande : "à partir de quel 
numéro ?". 

Pour soigner la présentation, le 
numéro est en PRINT USING et 
les mots sont tabulés. Une ligne 
en pointillés rejoint les mots 
anglais et français {fonctionnera 
sous SEIKOSHA-AMSTRAD). 

PETITS CONSEILS DIVERS 

— Pour un verbe anglais, ne 



"LEXIQUE ANGLAIS-FRANCAIË / AMSTRAD 

'Michel Arehambaull / 1985 
50 OPENOUVEIDON' 
60 MEMORY HIMEM-1 

70 CLOSEOUT 

200 MODE 1: BORDER ZelNK 2,:0:PAPER 0:PEN 

liCLS 
210 DIM M*{900.1):DEFINT A-Z 
25D 'GOTO 1000:'Ligne a effacer des nue 

300 'LECTURE FiCHIER 

31Û CLS:PEN 3:L0CATE <*,4sPHINT 'LEXIQUE 

ANGLAIS-FRANCAIS":PEN 1 

320 LOCATE 3,8:PRINT -PREPAREZ LA CASSET 

TE OU DISQUETTE" 

330 LOCATE 3, 10:PRINT "CONTENANT LE FICH 

1ER M&hï AUSLOFf?», " 

3*0 PEN 2: LOCATE 10,15:PRINT -puis tape 

ne Touche... ":PEN 1 
350 CALL 6FE06:CLS: PRINT: PRINT " CHARGE 

MENT des MOTS ': PRINT 

40O.ÙPENIN "ANGLOFRA" : INPUTSV, NF 

410>0R 1 = 1 TO NF:ÎNPUT*9.Ml(I,0).M*(I.l 

):NEXT 

420 CLOBEIN 

1000 'MENU PRINCIPAL 

1010 CLStINK O.llINK 1 , 24 

1020 LOCATE 17,2:PEN 3:PRINT "M E N U":P 

EN 2:L0CATE 29,2:PRINt NF: "mots" :PEN 1 

1030 LOCATE 6,4iPRINT "A = Anglais > 



tez pas le TO. 

— Entrez les mots au singulier. 

— Si un mot anglais a deux sens, 
inscrivez-les dans le "mot" fran- 
çais en séparant par un virgule. 
Exemple : 

PAD = 8L0C. COMPLETER 

— Où enregistrer le fichier ? 
Magnétophone : sur une cassette 
séparée et en deux endroits : 
compteur = 3 et compteur = 50. 
Lecteur de disquettes : sur la 
même face que le programme + 
sur une disquette de sécurité. 

— En recherche, il est plus sécu- 
risant d'utiliser l'astérisque. 



durera près de neuf secondes ! 
Prohibitif ; d'où la méthode par 
dichotomie. Condidition impéra- 
tive : le fichier doit être trié. Soit 
le mot MS à chercher. On le 
compare à celui du milieu du 
fichier (exemple : le n° 1000). 
Rus grand ou plus petit ? Plus 
grand On considère donc la 
seconde moitié ( 1 000 à 2000) et 
on compare M$ au mot milieu (n° 
1500). Plus petit on compare 
alors M$ au mot n" 1250, etc. 
Dès que la tranche de localisation 
fait moins de 200 fiches, on pro- 
cède è l'exploration fiche par 
fiche. Vous imaginez le gain en 



^Vl 



1050 LOCATE 6,8:PRINT " C = Compléter le 

lexique" 

lDfaO LOCATE 6,10:PRINT "M = Modification 

1070 LOCATE 6,I2:PRINT 'E = Enregistrera 

nf 

1ÙB0 LOCATE 6,I4:PRINT "T = Tri alphabet 

1100 LOCATE 6,16:PHINT "I » Itnpressioi 
1110 LOCATE 6,20iPRINT "Q = Quitter' 
(150 TEXS="AFCMETI(T:GOSUB 500DO 
1160 ON K GOBUE 2000, 2500. 4000, 5000.6000 
, 7000, BOOO, 1500 " * " " 

ii70 goto indu 

1500 'FINAL 
1510 CLSiLOCATE 10, 12:PR1NT 'VOUS POUVEZ 
ETEINDRE. "i PRINT: PRÏNT 
1520 END 

2DO0 'RECHERCHE ANGLAIS— --FRANÇAIS 
2010 R*="ANGLAIS":P=0 
2020 GOSUB 3000 
2030 RETURN 

2500 'RECHERCHE FRANÇAIS-- 'ANGLAIS 
2510 R*="FRANCAIS"!P=1 
2520 G05UB 3000 
2530 RETURN 

3000 'RECHERCHE DE TRADUCTION 
3010 HINDOU #1,1. 40,1, 7:PAPEflttl,0:PEN»l, 
1:CLS (il 

3020 HINDOU 4tQ, l , 40, 8, 25 : PAPER 2îPEN 0:C 
LS:PRINT 

3030 LOCATE» 1,4, 2: PRINT» 1 , " Mot suivi i 
* = contenant ce mot" 



30*0 LOCATE ttl,2,4:PRINTlll,"0 pour QUITT 

ER:Le BIP=fln du fichier 

3050 PEN*1,3:L0CATE ttt , 3, 6: PRINT*! , CHRt( 

18); "Mot •;"*!" ?: ": 

3Q6Q LINE INPUT #1 , Mï îM*=UPPER*< M*> ! IF M 

»-"Q" THEN 3900 

1080 IF RIGHTKM*,11="<>" THEN 3500 

3100 IF LENIMS) >J«+P*7 THEN 3050 

3110 FOR 1=1 TO NF 

312D IF M*=n*d.P> THEN SOSUB 3800 

3130 NEXTîPRINT CHR* ( 7 ) : :GOTO 3050 

3500 M*=LEFTï<MS,LEN<M»l-l) 

3510 IF LEN<M*> >I4+P«? THEN 3050 

3520 FOR 1=1 TO NF 

3530 IF INSTR(Mt(I.P),«*) ^0 THEN SOEUB 

3800 

3540 NEXT:PRINT CHR«I7>;:G0T0 3050 

3800 'AFFICHAGE LIGNE RESULTAT 

3EJ10 PRINT USING ■###': 1 ;: PRINT 7AP.(5>:M 

kl i.O) ;TAP(1S) : " :" ;M*(I,I) 

3830 RETURN 

3900 WINDOWMO. 1,40.1, 25;PAPER OîPEN 1 ! CL 

S 

3910 RETURN 

«000 'COMPLETER LE LEXIQUE 

4010 CLS 

4020 LOCATE 14,4:PRINT "NOUVEAUX MOTS." 

4030 LOCATE 16, 10: PAINT 'D'ACCORD ->':TE>: 

*="0N":G0SUB 50000 

404Q IF K=2 THEN «060 

4050 N=NF+I:60SUB 10QGO:NF=N-1 

4Q60 RETURN 

5000 'MODIFICATION 

5010 CLS:LOCATE 14,4;FRINT "MODIFICATION 

5Q2Q LOCATE 16.10:PRINT "D'ACCORD ^"îTEÏ 
t=-0N'îGOSUB 5G000:IF K=2 THEN 5900 
!iD30 MODÏF»! 
5040 GOSUB 10000 
5050 SOBIf=0 

3900 RETURN 

6000 'ENREGISTREMENT 

=010 CLSîLOCATE 2, 5: PRINT "SAUVEGARDE SU 

S DISQUETTE OU CASSE T TE'' 

6020 LOCATE 16,10:PRINT "D'ACCORD ?":T£> 

*="0N" sGOBUB 50000 

6030 IF K=2 THEN 1000 

&0B0 OPENOUT "ANGLOFRA" 

o09D WRITE t9.NFiF0R 1 = 1 TO NF-.WRITË tt & , 

M«(I,0>,M*(I.n;NE<T 

6100 CLOSEOUT 

6S00 RE TU RM 

70QG 'TRI 

7010 CLSîLOCATE 13.4:PRINT "TRI DU FICH 

IERï*:LOCATE 16,11:PRINT "D'ACCORD ,n :TE 

X«="0N":GOSUB 5000G : I F h = 2 THEN 79Ù0 

7020 LOCATE 16,21;PRINT "Patience...":" 



7060 F=0:FOR J=l TO NF 

7070 IF M«(J,0> >= rit(J-l.O) THEN 7D90 

7080 FOR R=0 TO 1 :M$<0, PI =M*< J, R ) :HÏ( J, 

R)=M5(J-1,R) ;M*(J-l,R)=MiIO.fi) :NEXTjF=l 

7C D NEXT 

7100 IF F THEN 7060 

7900 RETURN 

3000 ' IMPRESSION 

B010 CLSîLOCATE 5. 10:PRINT "L'IMPRIMANTE 

EST-ELLE PRETE 7" 
BB20 T£XS="0N":G0SUB 50000:IF K=2 THEN Q 
900 

8030 CLSîLOCATE 6,10:INPUT " A PARTIR DE 
QUEL NUMERO ? " , Dï 

8040 D=VAL<D*):IF D=0 OR D>MF THEN 8030 
8050 PRINT te,CHR»(27)îCHRïl64)!F0R I=D 
TO MF 

8D60 PRINT «8. USING "SUS" ;!:: PRINT B8. " 
" :M$(I.0);5TRINGJ( 1Û-LEN!MS( I ,0) >,"."!; 

■ :M*U, 1) 
8070 NEXTîPRINT #8 
OVOO RETURN 
10000 ' SAISIE 

10020 WIND0Wtf0,1.4D.7,25:PAPEH 0:PEN 1:C 
L5 

IDD30 WIND0UI#l,1.40,l,5:PAPER#r.2:PENî>l 
3:CLS»i 

10040 LOCATE 81,2,2:PRINT «1,'Pour quit 
er ( Menu 1 — : + ENTER" 
10050 LOCATE #1,2.4:PRINT SI , *N" ;5PC(5 > 
■ANGLAIS* ;SPC( 111 ; "FRANÇAIS" 
10060 L=0 

10D70 IF MODIF THEN GOSUB 105QO:GOT0 10: 
00 
10100 L=L+1:L0CATE l.L:PRINT USING "#»S 

10105 LOCATE 5,L:LINE INPUT "".MSCN.D) 
10110 Mt(N,D)=UPPER*lMS(N.O) ) :IF M*(N,0) 
=*'0" THEN 10200 

10120 IF LENIMîlN.On U4 THEN ttKN.Oi 
EFTt(M*(N,0), 14) 

10130 LOCATE 18,L:LINE INPUT "i",M»(N, 
10140 M*(M.li=UPPERî.M'(N,l)):IF LENU 
N. 1 H >21 THEN M*<N, ! )=LEFTÏ<Mt(N. 1 ),: 
10150 N=N+1:IF L=19 THEN CLS:L=D 
10160 GOTO 10070 
10200 WINDOW#0,1.40,1.25:CLS 
10300 RETURN 
10500 'FICHE A MODIFIER 
10510 PEN 2:L0CATE 3,1: INPUT "QUEL NUMER 
'< Q pour Ôuitter ) : " . Ht :N*=UPPER*!NI 
10520 IF N*="0' THEN PEN 1 s GOTO 10700 
10530 N=VALfH*)iIF N-0 OR N.-NF THEN 1051 
D 

1 ;N; :f 



10550 PEN I 

10560 LOCATE 5,5;LINE INPUT " " , M* : H»=IJPP 

Eftt<P1«) 

10570 IF M*=" THEN 10600 

10530 IF l_EN(MÎ> >14 THEN M*=LEFTt ( H*. 14 

) 

10590 Mt(N,0)=HS 

10600 LOCATE 19.5SLINE INPUT '"' . M* : rlS=UP 

PERS < n* ) 

10610 IF H**"" THEN 10690 

10620 IF LENIMt) >2I THEN ME=LEF'Î ( Ht, 11 

10630 M*(N. 1 J=riî 

10690 CLSsSOTO 10510 

10700 RETURN 

50000 'REPCIN5E A UN MENU 

50010 LT^ENITEXïJîRS^"" 

50010 LOCATE 15-LT,1<.:PRINT "Réponse <": 

50030 FOR 1=1 TO LT-I 

50040 PRINT MIDS<TEX$, J, 1) ;" ." ;;NEU 

50050 PRINT HISHTttTEXl, l)i")"iCHR*<154) 

;CHR«<243) :CHR«(207) 

50060 TEXS=UPPERS(TEX$) 

50070 WHILE R»=" ■ : R*= INKEÏ* :UEND 

500B0 R*=UPPERS(R$);K=INSTR(TEXt.R*> 

50090 IF K=0 THEN fl*=""!PRINT CHRS17);:G 

OTO 50070 

50100 PETURN 

6-535 ; FIN DE LISTIlMi 



Nous vous avons déjè présenté 
deux éditeurs de logiciels. Sans 
eux vous n'auriez sans doute pas 
la possibilité de jouer avec votre 
"machine" ou de travailler avec, 
voire de commercialiser vos pro- 
pres programmes. 
ARG Informatique édite des logi- 
ciels depuis 1 983, mais c'est en 
1984 qu'a lieu le "boom" avec 
la collection de marque Cobra 
Soft touchant THOMSON et sur- 
tout ORIC. 

Ce n'est donc pas un hasard si 
Cobra Soft est devenu l'un des 
plus importants éditeurs de logi- 
ciels pour AMSTRAD ! Cette 
marque a été fondée par deux 
des programmeurs déjà au cœur 
de la société : Bertrand BRO- 
CARD et Gilles BERTIN ! Ils furent 
immédiatement enthousiasmés 






UIM EDITEUR 

SE PRESENTE 



ARG INFORMATIQUE 




■sur de COBRA PINBALL tarde 12 ai 
. « PORTAT, responsable boutique. Martine MORIH. il 
tarit, comptabilité. Brigitte DUCHARNE. responsable expéditions et stock. Bertrand BROCARD, 
autrui de MEURTRE A GRANDE VITESSE lat de 15 nuiras loglcialsl. diraction génitale, uni 

COBRA PINBALL... Jean BOIVIU. responsable commercial 



Tiachin 



croyant, dès la première 
tion, en son brillant avenir, alors 
que d'autres pensaient MSX ou 
ALICE ! 

Aussi, la collection AMSTRAD 
s'est elle enrichie de 13 nou- 
veaux titres dès le début 1985, 
parmi lesquels les adaptations de 
Cobra Pïnball, de Meurtre à 
Grande Vitesse. Depuis, la mise 
est triplée avec 38 titres couvrant 
toutes les applications de la 
micro-informatique familiale. 
Didacticiels (français, histoire, 
mathématiques), gestion, utilitai- 
res, logiciels d'intérêt personnel 
(biorythme, astrologie, grapholo- 
gie), jeux de réflexion et super 
productions, désormais, l'ensem- 
ble de la collection est disponible 
sur disquettes. La société a 
décidé de modifier 
d'édition. En effet, il 
difficile d'écrire seu) 
gramme. Aussi a-t-elle mis en 
place des unités de création 
regroupant des programmeurs, 
des graphistes, des musiciens et 
des auteurs, en leur donnant les 
moyens de travailler et en leur 
fournissant matériels et outils de 
développement. 

Une bonne idée qui devrait plaire 
; les concepteurs potentiels. 



politique 
souvent 
bon pro- 





Vous êtes enfermé dans 
labyrinthe de 10 étages, dont 
vous devez sortir au plus vite. La 
porte de sortie est fermée par 3 
cadenas commandés par des clés 
rangées dans des coffres répar- 
tis sur chacun des dix étages. 
Vous avez deviné ? Votre travail 
consiste à retrouver les 3 clés, 
mais chaque coffre n'en contient 
pas forcément une ! Pour ouvrir 
tes coffres, il faut d'abord trou- 
ver la combinaison de 5 lettres. 
Pour corser le tout, vous êtes 
poursuivi par des fantômes mali- 
cieux, qui vous subtilisent les clés 
pour les remettre à leur place, 
dans les coffres. Le reste de la 
règle du jeu est énoncé par le pro- 
gramme. A vos claviers I 



♦ ♦00. 

♦ ♦oo| 
♦♦oo. 
♦♦oo! 
♦♦oo. 

♦♦oo; 
♦♦oo. 

♦ ♦oo; 

♦ ♦oo. 



90 MODE 1 

100 DEFINT fl-Z 

110 CLSiLOCATE I.IBtPRINT 'Jouei- 



120 R*=UPPER*<INKEYS>:IF R«="M* ' 
ELSE IF R*0"C THEN 120 
130 IF R*="C" THEN 150 
[40 BORDER 1 ; INK 0. I : INK 1,24:INI 



170 ■ 



caractères redefii 



131 

190 SYMBOL AFTER 220 

200 SYMBOL 244,2B, 28, 9,62,92, 28,20.20 

210 SYMBOL 245,24,24,255.126,60,60.36,36 

220 SYMBOL 246, 126, 129. IBC, 165 . 165, 199, 1 

29.126 

230 SYMBOL 247,31.17,31.4,4,60,12,60 



240 SYMBOL 248, 0, 255, S*, 94, B4.84. 255.0 

250 SYMBOL 249,255,195,195,195,193.195,1 

95,255 

260 SYMBOL 250.56,66, 143, 164, 169, 144,, 48, 

56 



56 

290 SVMBOL 253,20,34,41,37, 149, 73,34, 2B 
300 SYMBOL 221,255,0,255,0,255,0.255.0 
31B SYMBOL 222.255,0,63,0,15,0,3.0 
320 SYMBOL 223,0,0,3,0,15,0.63,0 
330 SYMBOL 224,255, 0,252, 0,240, 0,192, 
340 SYMBOL 225,0,0,192,0,240,0,252.0 
350 SYMBOL 226.0,1,3,1,1,1,0,0 
360 SYMBOL 227, 0, 1 19, B5, 117, B5, 1 19,0,0 
370 SVMBOL 22B.0, 119,69,117,21, 119,0,0 
330 SVMBOL 229,0,119,21,117,69,119,0,0 
390 SVMBOL 230,0,119,85,117,21,119,0,0 
40B SYMBOL 231,0, 119, 69,117, B5, 119, 0,0 
410 SYMBOL 23.2,0,119,21,117,21,119,0.0 
420 SYMBOL 233,255,255,192,255,255,3.255 
,255 

430 GOSUB 4310iREM #»* instructions »** 
440 CLS:PEN 1 

450 LOCATE 1,10:PRINT "Le niveau de diff- 
iculté choisi < 1,2 ou 3)* 

460 LOCATE 1,12:PHINT "détermine le nomb 
re de coffresl5,4 ou 3)" 
470 LOCATE 1,14:PRINT ■ qui contiend 

480 LOCATE 1,18:INPUT ■ Quel est v 

490 IF nidi=l OH mdi=2 OR nidi=3 THEN 5 

00 ELSE 4B0 

500 GOSUB 5390 

510 ORIGIN 0,0:CLS 

520 WINDOU #1,1,25,1,25 

530 UINDOW #2,27.27,15,25 

540 UINDOW #3,27,40,4,7 

550 UINDOW #4,27,40,1,3 

560 UINDOW #5,27.40,9,14 

570 UINDOW «7,29,39,15,24 

5B0 DIM L«<5)iDIM FX<5):DIM FYI5) 

590 DIM ce 1 (73):DIM ei »<73) 

600 DEGiFÙR i=0 TO 72 

610 co'(i)=C0SI5*i) 

620 si'ti>=SIN<5*i> 

630 NEXT i 

640 INK 0.0:EORDER 0:PAPER 

650 IF R*=-M- THEN 670 

660 INK 3.3:INK l,9:GOT0 6B0 

670 INK 3,9:INK 1,24 

6B0 PAPER #4,3:CLS #4 : PEN lî LOCATE #4,2, 

2:PRINT #4,CHR*(250)iCHR*(251);"MESSAGES 

";CHR*(252>îCHR*<253) 

690 PAPER #3,3:CLS #3: PRINTtt3:PRINT KJ, ' 

VEUILLEZ PATIENTER" 

700 ï;: = 2:yy=2îNKp=2:yyp=2:fois=0:etsoi" = I 






laby 



730 ' 

740 * 

750 DIM R(5,6,6)!DIM S(2, 

TIME 

760 FOR m=l TO 5 

770 FOR 1=0 TO 5 

780 FOR j=0 TO 5 

790 R(n,.i.j) = INT(10*RND+l 

B00 NEXT JlNEXT i:NEXT m 

810 FOR m=l TO 2 

B20 FOR i=0 TO 6 

B30 FOR j=0 TO 6 

B40 51m, i,j)=INT(10*RND+l 

850 IF S<m,0,jX5 THEN 

860 NEXT j.-NEXT i:NEXT 

870 ' 




40 






al il 



910 FOR i 
920 EXd: 



:(15):DIM EY< 15 > : RANDOMI ZE TIME 
'1 TO 15 



= :■*'■■ 



!INT(10*RND+2)>iEY<i>*2* 

!10*RND+2)> 

930 FOR j=0 TO i-liJF AES<EX<i)-EX(j 

AND ABS(EY(i)-EV(JH<3 THEN 920 
940 NEXT j 
950 NEXT i 
960 ■*»**. 
970 '*** coordonne! 

990 DIM cok(10)jDIM cdu< 10) :RANDOMIZE TI 

ME 

1000 FOR i=l TO 10 

1010 co;;<i)=2*<INTH2*RND+l>> :cou(i } = !'*( 

INÏU2*RND+1! ) 

1020 IF con{i)=<t AND cou(i)=2 THEN 1010 

1030 FOR j=l TO 15 

1040 IF coyUKÏEYM! THEN 1060 

1050 IF cor;(i)=EX( j) OR co!i(i)=EX( ji + 2 T 

HEN 1010 



13: 



I DIM t 



:FOR : 



TO ( 



1090 j=INTI10*RND*l> 

1100 IF cle(j)=0 THEN cle(j>=l ELSE 1090 

1110 NEXT 

1120 CLS #3 

1130 PAPER #5,0:CLS #5 ; PEN 1:F0R 1 = 1 TO 

5:LOCATE #5.1,i:PRINT #5, CHR*<221) iLOCAT 

E #5, 14, i:PRINT #5, CHR* < 221 ) :NEXT 

1140 LOCATE #5,2,1:PRINT #5. " RECORD: " iLQ 

CATE #5,2,3:PRINT #5, "TEMPS : " : LOCATE #5. 

2.5:PRINT #5, •CLEFS: 1 ' 

1150 LOCATE #5,9,1:IF record=0 THEN PRIN 

T#5," • ELSE PRINTyS.LrSING-SNHrt» 11 :r E 



I BORDER cksINK 0, cl; 

ON n GOTO 1240. 1250, 
l, 1300,1310, 1320, 1330 



;'6ù, : 



>7B, 128C 



INK 1. 
INK 1,0 
INK 1,0 
INK 1,0 



INK 2,4: INK 3. 13:G0T0 1370 

INK 2,4îINK 3,13:GOT0 1370 

INK 2.4:INK 3,15:G0TO 1370 

INK 2, 4: INK 3,16:GÛT0 1370 



127B 

12S0 INK l,3iINK 2,1:INK 3.0iGOTO 1372 

1290 INK l,3sINK 2,0:INK 3, 12:GOT0 1370 

1300 INK 1,3:INK 2,0:INK 3,9;GOT0 1370 

1310 INK 1,1:INK 2,4:INK 3,11:G0T0 1370 

1320 INK 1,I:INK 2,4:INK 3. 13îG0T0 1370 
1330 INK 1.1:INK 2,12îINK 3.4:G0T0 1370 



135B '«* ( 
13i 






1370 RANDOMIZE TIME : : = INT (50*RND> : RESTOR 

E 6120 

1380 FOR i=-4 TO 5*< =-1 ) f READ viNEXT i 

1390 READ ul,u2,u3.u4.u5 

1400 code*=CHR«(ul)+CHR*(u2)*CHR«(u3!+CH 

R*<u4)+CHR»<u5) 

1410 code*=LOUER*<cade«) 

1420 FOR L=l TO 5 : L$< 1 >=MID<< code*, L, 1 ) : 

NEXT L 

1430 xx=xx+2 

1448 '*** indicateur d'étage; «Ml 

1450 FOR b=l TO 10îLOCATE #2,I,b:PRINT tt 

2,CHR*<249)îNEXT b 

1460 LOCATE #2, 1 , 1 1-np: PRINT #2,CHfl*(2« 

1470 LOCATE K, 1 , 1 1-ns PRINT #2, CHRS ! 143) 



1500 '*** horloge *** 
1510 •♦»*«*»»*•****** 

1520 DIsPEN 3îPAPER #7,2:CLS #7: LOCATE # 

7,5,1 SPRINT #7,CHRS<226)îCHR*(227):L0CAT 

E #7, 1,3:PRINT #7, CHR«(226) ; CHRS1228) s LO 

CATE «7, I0,3:PRINT «7, CHR* i 232) 

1530 LOCATE «7, 1 , 8: PRINT #7, CHRÏI226) : CH 

R* ( 229 >i LOCATE #7, 10, B:PRINT #7,CHR*<231 

):LOCATE #7,6,10:PRINT #7,CHR*<230> 

1540 ORIGIN 536,96 

1550 MOVE 62*co'<0>,62*si< (0) :FOR i=l TO 

72:DRA14 62*co ' ! i ) ,62*51 ' I i ) INEXT i 
1560 MOVE 52*co' <0),52*si' <0> :FOR 1=1 TO 

72:DRAW 52»coMi),52»si'(il:NEXT i 
1570 FOR t=30 TO 330 STEP 60:MOVE 52*C0S 
<tl,52»SIN<t>iDRAW 62*C0S I t > , 62»SIN< l ) :N 



EXT t 


:ORIGIN 0,0:EI 




E58Q 




*********** 


1593 


'# constructio 


labyrinthe 




1610 CL5 NI 

1620 DI:FOR i=0 TO 8 STEP 2:M0VE i,0:DRA 

WR 0,398:MOVE 398-i ,0:DRAUR 0,39S:MOVE 

,i:DRAWR 398.0:MOVE 0. 39B-i : DRAUR 393.0: 

NEXT: El 

1630 PEN LiFOB i=3 TO 23 STEP 2 

1640 FOR j-3 TO 23 STEP 2 

1650 LOCATE i,j:PRINT CHRSU44) 

1660 NEXT jiNEXT i 

1670 k=-<n=I OR n=6)-2»ln=2 OR n=7)-3*<n 

=3 OR n=8)-4»(n=4 OR n=9>-5*<n=5 OR n*10 

) 

1680 FOR 1=0 TO 5 

1690 FOR j=B TO 5 

1700 x=16*<22-4*i)+7 

1710 y=16»(22-4*jt+7 

1720 ON R(k,i,j) GOSUE 2920,2930,2940,29 

50. 2960, 2970, 29B0, 2990, 3300, 3010 

1730 NEXT jiNEXT l 

1740 k=-(n>0)-(n:-5) 

1750 FOR i=0 TO 6 

1760 FOR j=0 TO 6 

1770 s-. = 16*(24-4*i)+7 

1780 y = 16*-!24-4«j)+7 

1790 ON S(k,l,j) GOSUE 2920,2930,2940,29 

50. 2960, 2970, 2980, 2990. 3000. 3010 

1800 NEXT jîNEXT i 

1810 ON np GOSUE 3410,3420,3430.3440,345 

0, 3460. 3470. 34B0. 3490, 3500 

1B20 GOSUE 3510 

1B30 PEN liLOCATE cox< n ), coy (n >: PRINT CH 

Ht (246) 

1840 PEN 3iF0R j = l TO 5:L0CATE codes:(n,j 

),codeu(n.j):PRINT CHfi$< 164) :NEXT j 

1B50 IF n=etsar THEN fois=fois+l ELSE 19 

10 

1860 IF fois=l THEN GOSUE 3970 

1870 PEN IsLOCATE t»l. iiSor,ysar:PRINT #1, 

CHU* (233) 



18' 



1910 RANDOMIZE TIME 

1920 FX(1)=2»INT(9»RND*4):FY(1)=2 

1930 IF FX(l)=coxtn) THEN 1920 

1940 FOR j=l TO 5jIF FX I 1 ) =codex (n, j ) TH 

EN 1920 ELSE NEXT j 

1950 FX(2)=2:FV(2)=2*INT(10*RNÛ+2) 

1960 IF FY<2)=coy(n> THEN 1950 

1970 FOR j = l TO 5:IF FY(2)=codeq ( n, j] TH 

EN 1950 ELSE NEXT j 

1980 FX(3)=24:FV(3)=2»INT<10*RND+2) 

1990 IF FY(3)=coy(n) THEN 1980 

2000 FOR j=l TO 5:IF FY 13 >=codey (n, j > TH 

EN 1980 ELSE NEXT j 



t 2010 FX(4)=2*INT< 12*RND+1):FY<4>=24 

• 2020 IF FX<4)=cOHln) THEN 2010 

. 2030 FOR j=l TO 5iIF FX ( 4)=codeK ( n, j ) TH 

EN 2010 ELSE NEXT j 

2040 FXI5)=2»INT(12*RND+1);FY<5)=24 

2050 IF FXi5)=cox<n> OR FX (5)=FX<4> THEN 
2040 

2060 FOR j = l TO 5:IF FX ( 5 >=code:; ( n , j ) TH 

EN 2040 ELSE NEXT j 

2070 PEN 2:FOR k=l TO 5:LOCATE FX(k),F¥( 

k):Pf!INT CHR*<245):NEXT k 

2080 pause=lfEVERY 50,2 GOSUE 2830 

2090 EVERY 100. 1 GOSUE 2530 

2100 s0=INT(TlME/30B)si-e=a:pau5e=0:tepel 



2120 DIzPEN 
2130 LOCATE 
2140 SOUND 
2150 LOCATE 
2140 *xp=xj: 
2170 xc=16* 



;xp,yyp:FHINT CHRK128) 
150,5,5 
(x,yy:PRINT CHRSI244) 

iyp=yy:Ei 



6-<25-yy)+7 
!F pause=l THEN n=INT< 10*RND+1 )jxx= 
j<x-2!temp&=temps-MB0iLOCATE #5,8,3:PRINT 
•5, USINE ■*####"! temps :GOTO 1190 
2190 c«=INKEY*:IF e*="" THEN 2190 
2200 IF c*="P" OR c*="p" THEN SOSUE 3570 
2210 c=ASC(c*) 

2220 IF c<240 OR c>243 THEN 2190 
2230 cc=c-239 

2240 t=TEST(::c+16»(cc=3)-16*<cc=4),yc-16 
*(cc=l)+16»(cc=2)> 
2250 IF t=l THEN 2190 



2260 I 



:c=2)+24*(cc=31- 



=1)+2B*(( 



2270 t l=TEST(xt,yc-40*' 

22B0 t2=TEST(xt,yc-38*' 

*(cc=3)-6*<ec=4] ) 

2290 t3=TEST(xt,yc-36»l 

*(cc=3)-4#<cc=4)> 

2300 tt=tl+2»t2+3*t3 

2310 IF tt«2 THEN 3050 

2320 IF tt=5 THEN GOTO 4060 

2330 IF tt=18 THEN GOTO 4170 

2340 IF tt=6 THEN GOTO 2190 

2350 IF U=3 AND nbcle=3 THEN GOTO 5460 

2360 IF tt=3 AND nbcle-'3 THEN GOTO 2120 

2370 FOR 1=0 TO 4 STEP 2 

2360 l4=TE5T(xe-C 



-L26- 



■132+ 



:-36*(( 



l>+28*<cc=2)-4»(cc=3)-4*. 
2390 IF t4>0 THEN 2410 
2400 NEXT i s GOTO 2460 
2410 xxs=xx-2»(cc=4)+2*(t 
2420 yys=yy+2*<cc=l)-2*<l 
2430 FOR i=l TO 5 
2440 IF <codeK(n.i)=x>is) 
=yys) THEN 2480 



2*58 NEXT i 






2460 yy=yy+2*< cc=l 
2470 KX»XX+2*<CC«3 
2480 PEN 2:L0CATE » 


-2*< 


c=4):G0TO 
sîPRINT M 




IDl 



2490 GOTO 2120 

2500 '«■••*»..*»•*.*****»»»*»»* 

2510 ' ** déplacement fantôme «« 

2530 DI:IF pause=l OR pause=2 THEN 279B 

2540 FOR 1=1 TO 5 lA=INT<4*RND+l ) 

2550 ■:F = tfr*(FX(I>-l) + 7:yf=16*<25-FY(I))* 

7 

2560 PEN 2:ON A GOTO 2570.2610,2650.2690 

2570 IF TE5T(xf-20,yf )=1 THEN 2780 

2580 IF TEST(xf-24.yf+4)=l AND TEST'txf-2 

4,yf*6)=0 THEN 2730 

2590 IF TEST(xf-2*,Uf+6i+TE5T(xf-26,Uf+4 

>+TEST(> ; f-28.yf+4)+TEST(^f-30,yf-4K0 TH 

EN 27 G0 

2600 LOCATE FX(I),FYU) :PRINT CHR*(12Bl 

:FX<I)=FX(I)-2:S0UND 1 , 602.5. 5 îLOCATE FX 

(D.FYlIIsPRINT CHfl*< 245): GOTO 2780 

2610 IF TE5T(af+20,yf )=1 THEN 2780 

2620 IF TEST(Kf*40,yf+4)=l AND TESTIxf+4 

0.yf*6>=0 THEN 2730 

2630 IF TEST<xf+4B,yf+4HTEST(xf+32,uf*4 

)*-TEST(xf+34 1 yf+4)+TE5T(xf+36,yf+4)'.0 TH 

EN 27B0 

2640 LOCATE FX(I).FY(1) :PfiINT CHRSU28) 

:FX<I)=FX<I)+2îS0UND l,602,5.5tLOCATE Fx 

(I).FY(I):PRINT CHU* (245): GOTO 2790 

2650 IF TEST(Kf,yf+20)*l THEN 2780 

2660 IF TESTt : ;f+8,yf+3fa) = l AND TEST tlfHfi 

,yf+38)=0 THEN 2730 

2670 IF TEST(x(+B,yf*38)+TE5T( l; f+2.uf+36 

)+TEST( K f+4, U f+36)+TEBT(«f+6,uf+36)>0 TH 

EN 27B0 

26B0 LOCATE FX(I),FY!I) :PRINT CHRSI128) 

:FY(I)=FYII )-2:S0UND 1 , 602, 5, 5 :LOCATE FX 

<I),FY<I):PRINT CHR*< 245): GOTO 2730 

2690 IF TESTUf,yf-20) = l THEN 2780 

2700 IF TE5Tf;:f+B.yf-28) = l AND TEST(;:f+8 

,yf-26>=0 THEN 2730 

2710 IF TEST(Kf+S,yf-26>+TEST( K f+2,yf-28 

)+TEBT(xf+4 1 yf-"28)*TEST(xf+6 1 gf-2B5 -0 TH 

EN 2780 

2720 LOCATE FXU).FY(I) :PRINT CHRIU28) 

îFY(I)=FY(I)+2îS0UND 1, 602,5, 5 îLOCATE FX 

(I),FVf I):PRINT CHP* ( 245 ): GOTO 2780 

2730 IF nbcle=0 THEN 2780 

2740 LOCATE #5, nbcle'-B, 5 : PRINT #5,CHR*(1 

2B):nbcle=nbcle-l 

2750 GOSUE 5800:CLS #3:PRINT #3. " 1 cle d 




2790 El: RETURN 

2800 ***»•»»*»*****«» 

2810 '*** mouvement hor 

2620 ■..»***»*»***»**»» 

2830 IF pause=l THEM 2B7B 

2840 DE5itB=te+2 

2B50 IF te<360 THEN 2B70 

2B60 pau5B=lite=0 

2870 MOVE 536.96:DRAWR 52*SINI te ) , 52*COS 

2880 RETURN 



2900 '* construction labyr- 

2910 ■#*#■ 

2920 MOVE x,y:DRAWR 32.0:MOVE x , y-t-2:DRAW 

R 32,0;RETURN 

2930 MOVE x,y;DRAUR 32, 01 MOVE x,u+2iDRAU 

R 32.0:MOVE x,u:DRAWR -32,BlM0VE x,y+2:D 

RAWR -32,0:RErÛRN 

2940 MOVE x.yiDRAWR 32,0:MOVE x,y+2iDRAW 

R 32.0:NOVE x,y;DRAWR 0,32:MOVE x+2.y:DR 

AWR 0,32:RETURN 

2950 MOVE x,y:DRAWR 32,0! MOVE x,y+2:DRAU 

R 32,0:MOVE x,it:DRAUR 0.-32:MOVE x+2,y:D 

RAWr'0,-32:RETÛRN 

2960 MOVE x.yïDRAWR -32,0:MOVE ]!,y+2iDRA 

WR -32,0:RETURN 

2970 MOVE x,y:DRAUR -32,0:MOVE x,y+2iDRA 

WR -32,BiM0VE x.ysDRAUR 0,32iMOVE M+2,y: 

DRAWR 0, 32i RETURN 

2980 MOVE x,yiDRAWR -32,0:MOVE *,y+2iDRA 

WR -32,0:MOVE x.ysDRAWR B, -32: MOVE x+2,y 

iDRAWR 0,-32tR£TURN 

2990 MOVE :',y:DRAUR 0.32:MOVE x+2,y:DRAW 

R 0.32:RETURN 

3000 MOVE x,y:DRAWR 0, 32 t MOVE x+2,y:DRAW 

R 0,32 s MOVE K,y:DRAWH 0, -32îM0VE x+2,y:D 

RAWR B, -32: RETURN 

3010 MOVE x,y:DRAWR 0,-32:MOVE ;<+2,y;DRA 

WR 0,-32:RETURN 

3020 

3030 

3040 

3050 yy=yy+2Hcc=l)-2*(cc=2) 

3060 xx=xx+2*Icc=3>-2»(cc*4> 

3070 pause=l;te=0:sl=INT( TIME/300): temps 

= temp5*st-s0+tepetci:LOCATE »5,8,3:PRINT 

•5.USING ■#####■; temps 

30B0 ON n GOTO 3090,3120,3150,3130,3210, 

3240, 3270, 3300. 3330, 3360 

3090 IF xx=EXU) AND yy=EV(l) THEN n=2:G 

ÛTO 1170 

3100 IF xx=EX(2) AND yy=EY<2) THEN n=3îG 

OTO 1170 

3110 IF x*=EX<3) AND yy=EY<3) THEN n=4:G 

OTO 1170 

3120 IF xk=EXU> AND yy=EV(lï THEN n=l:G 

OTO 1170 

3130 IF xx=EX(4> AND yy=EY(4> THEN n=3:G 



OTO 1170 

3140 IF xx=EX<5) AND yy=EY(5) THEN n=' 

OTO 1170 

3150 IF xx-EX(ù) AND yy=EY(6> THEN n=< 

OTO 1170 

3160 IF >;x=EX<2> AND yy=EV(2) THEN n = . 

OTO 1170 

3170 IF i!>-=EX<4! AND 4 y=EY<4) THEN n< 



,;iTO 



L70 



31B0 IF ;<x=EX(6> AND yy=EY<6) THEN ti=3:( 

OTO 1170 

3190 IF :^=EXIB) AND yy=EY(B> THEN n=10! 

GOTO 1170 

3200 IF >:x=EX<3) AND yy=EY(3) THEN n=li( 

OTO 1170 

3210 IF xje>EX<7! AND yy=EY<7) THEN n=6:< 

OTO 1170 

3220 IF xi.'=EX(ll) AND yy=EY(ll) THEN n-S 

iGOTO 1170 

3230 IF x>:=EX!5) AND yy=EY(5) THEN n=2:( 

OTO 1170 

3240 IF k;;=EX(9) AND yy=EY<9) THEN n=8:< 

OTO 1170 

3250 IF hk=EX<7) AND yy=EYI7) THEN n=5 : ( 



OTO : 



.70 



i AND yy=EYU3> THEN t 
i AND yy=EYUfl> THEN r 



3260 IF xx=EX(: 

iSOTO 1170 

3270 IF KX-EXC1 

0;GOTO 1170 

32B0 IF kk=EX<14) AND yy=EY(14) THEM n=S 

iGOTO 1170 

3290 IF xx-EXUS) AND yy=EY(15> THEN n=" 

:GOTO 1170 

3300 IF i:x=EX(9> AND yy=EY<9) THEN n=6:l 



oto : 



:7B 



AND i 



kEY(II) THEN n=! 

=EY(14) THEN n= 

=EY(12) THEN n= 

=EY(13) THEN n=< 



3310 IF xx=EXIll 

iGOTO 1170 

3320 IF kk=EX(14) AND l 

:GOTO 1170 

3330 IF kh=£X(12> AND i 

0:GOTO 1170 

32W IF xx=£X<13) AND <._ 

:GOTO 1170 

3350 IF s:x=EX(15! AND yy=EY<15> THEN n«l 

:GOTO 1170 

3360 IF !!M=EX(B) AND yy=EVl8> THEN n=4:l 

OTO 1170 

3370 IF XX"CX(10> AND yy=EY(10) THEN B*" 

:GOT0 117B 

3330 IF KK»EX(12) AND yu=EY(12) THEN n=< 

iGOTO 1170 

3390 GOTO 1170 

3400 ' ************************ 

3410 P1=EX(1):P2=EY(1):P3=EX{2):P4=EY(2: 

:P5=EX(3):P6=EY<3) : RETURN 

3420 P1=EX ( 1 ) : P2=EY ( 1 ) : P3=EX < 4 ) : P4=EY < 4 ; 

: P5=EX { 5 ) : P6=EY ( 5 ) i RETURN 

3430 P1=EX(6):P2=EY(6):P3=EX(4);P4=EV(4: 

: P5=EX ( 2 ) : P6=EV < 2 > : RETURN 



3*70 P1=EX< 12): 
<13):P5=EXi 
3530 P1=EX( 12> 
U0);P5=EXi 



34*0 P1=EX(6):P2=EV<6> : P3=EX iB> : P*=EY ( a > 

:P5=EXt3):P6=EY(3>:RETURN 

3*50 Pl=EX<7):P2=EV(7>:P3=EX(ll);P4=EYd 

l)!P5=EX<5>rP6=EYI5):RETURN 

3*60 Pl=EX(7)îP2=EY<7)lP3=EXd3lïP4=EY(l 

3):P5=EX(9):P6=EYI9):RETURN 

3470 P1=EXU0) :P2=EY< 10>:P3=EX< 14)îP4=EY 

11*): P5=EX (13 J i P6=EY< 15 ) : RETURN 

3480 Pl=EXUl):P2=EYdl>:P3=EXd4î :P*=EY 

(14)3 P?=EX (9) : P6=EY( 9 ) i RETURN 

iP2=EY( 12) :P3=EXU3>:P4=EY 
:P6=EYd5>: RETURN 

V(I2):P3=EX(10) :P*=EY 
îP6=£Y(8>: RETURN 
3510 PEN ULOCATE P1,P2:PRINT CHR5M24S); 
CHR* <1 28 >i LOCATE P3.P4:PRINT CHR*(24B);C 
HR*U2B) (LOCATE P5,P6.:PRINT CHRSI2*S);CH 
RK128) 

3520 DIslWE 16*Pl+7,lo*<26-P2)+7:DRAUR 
-32,0:DRAWR 0,-32:DRAWR 32, 01 HO VE 16*P3* 
7,16»(26-P4)+7:DRAUR -32,0:DRAWR 0,-32iD 
RAWR 32,0:MOVE 16*P5-7. 16»<26-P6 >*7îDRAW 
R -32.0:DRAUR 0,-32:DRAI4R 32,0 
3530 MOVÊ 16*PH-8,16*<26-P2)+8:DRAWR -31 
,0:DRAWR 0,-32:DRAWR 31.0:HOVE 16*P3+8, 1 
6» ( 26-P4 ) --B : DRAWR -31,0:DRAUR 0,-32:DRAW 
R 31,0îMOVE 16»P5+B.16*(26-P6)+8:DRAigfl - 
31,0:DRAUR 0,-32:DRAWfi 31 , 0:EÏ s RETURN 
3540 ' 
3550 
3560 ' 
3570 GOSUB 5760:CLS83:PRINT #3, 



la directil 



IF c! 
:IF [ 



580 

3600 IF TEST (!!t+20»(c=242)-20»(c=243 

c+20»(c=241)-20*Cc=2*0) 1=1 THEN 3680 

3610 teDe=!NT( 16*RND+5) :te=tB+2#t*p»s' 

eto=tepeto+tepe 

3620 GOSUB 5760:CLS>l3:PRINT^t3.■ dur: 



3640 LOCATE i 



3650 LOCATE i 



:PRINT CHR4(128) : RETU 



îPRINT CHRS112I 



(iPRINT CHflï<128):RETU 



:PRINT CHRÏ< 128) :R£TU 



3670 LOCATE KX+1,1 

RN 

368B GOSUB 5760:CLS#3:PRINTtt3, ■ 

g= impossible" :RETURN 

3690 •*»..*#**»»•»*»***.».*«**. 

3700 '* coordonnées lettre cods 

3710 '#«.*.«**....*.».....*•♦», 

3720 DIM code:i(10.5):DIM codeu ( 

3730 FOR 1=1 TO 10 

3740 FOR j = l TO 5 

3750 code>:d,j>=2*(INTd2*RND+1 



i,j'= 2*<INTd2*RND+ 
3760 IF coderai, j)=4 
EN 3750 

3770 FOR k=0 TO j'-l 
3780 IF codes:d,,)=c( 



AND ( 



i,j)=cod«y(i,lîl THEN 3750 

3770 IF code;:d, j)=co:;d ) AND eodeyli.j] 

= coyd! THEN 3750 

3BO0 ON i GOTO 3810,3820.3830, 3B40.3B5B. 

3B60, 3370, 3880, 3690. 3700 

3810 IF codeyd, j)=EV(l ) OR eodey ! i , j > *€ 

Y(2) OR codey! i.j)=EY(3) THEN 3750 ELSE 

3910 

3820 IF codeyd, j)=EYd) OR COd«yli,j)=E 

Y(4) OR codeyd,j)=EV(5) THEN 3750 ELSE 

3910 

3830 IF codeyd, j)=Eï(û> OR codeyd. j)=E 

YI2) OR Cod*ufi,j)=EY(4) THEN 3750 EL5E 

3910 



3910 

3850 IF codeyd, j)=EY(7) OR codeyd, j)=E 

Y(ll) OR codeyd, j)=EY(5> THEN 3750 ELSE 

3910 
3860 IF codeyd, j)=EYt?) OR CDdeyd,j)=E 
Y(7) OR codeyd, j)=EY(13) THEN 3750 ELSE 

3910 
3870 IF codeyd, j)=EY( 10) OR codeyd. |J = 
EYU4) OR codeyd, j)=EY(15) THEN 3750 EL 
SE 3910 

3880 IF codeyd, j) = EY(9) OR codeud,j)=E 
YI14) OR codeyd, j)=EY(ll) THEN 3750 ELS 
E 3910 

3890 IF codeyd, j>=EY<12> OR codey ( i , j ) = 
EYI13) OR codey d,j]=EYd5) THEN 3750 EL 
SE 3910 

3900 IF codey d,J)=EY(B) OR codeyd, j)=E 
Y(10) OR codeyd, j)=EY(12) THEN 3750 ELB 
E 3910 
3910 NEXT I 
3920 NEXT j 
3930 NEXT iî RETURN 
3940 '***.»#*#»,*«»»*..*.„.** 
3950 '*** porte de sortie *** 

3970 ::<;or=2*INT{ 10*RND<-2) :ysor=2»INT< 10» 



AND ysor=coy (et: 



rmd+: 

3980 IF KSor=co-. (e' 

or) THEN 3^70 

3990 FOR i=l TO 5 

*000 IF >:5or = CDde:;(etsor 1 i ) AND yso 

eylelsor.D THEN 3970 ELSE NEXT i 

*010 IF ( K sor=Pl AND U5or = P2) OR ( :: 

1+2 AND ysor=P2) THEN 3770 

4020 IF (ir5or = P3 AND usor=P'») OR (y. 

3*2 AND y5or=P*) THEN~ 3970 

4030 IF Usor = P5 AND ySor=P6) OR (>: 

5*2 AND ysor=P6) THEN 3970 

4040 RETURN 



404.0 ' 



i-t-u.i 



o f f r , 



40B0 pause=2:G0SUE 574>0:CLS »3ïINPUTH3, 

■Code du coffre ";c* 

4090 c*=LOUER*(c*)îIF c*=code* THEN 4110 

4100 CLB#3:PRINT #3, "Le code n'est pas b 

Dn" ipause=0-GOTO 2120 

4110 IF cle<n)=l THEN 4140 

4120 GOSUE 5770:CLS «3: PRINTB3, " BRA 

"0 mais il n'y a pas de cle. * 

4130 pause=0iGOTO 2120 

4140 PEN 3iL0CATE COX ( n 1 , coy < n ) : PRINT CH 

R«1247> 



90 



;242)-2*<i 



--2<>3"< 



THEN ' 



4210 xcl = xj<+2*<c: 

4220 ycl=yy+2«fc=240)-2*(c=; 

4230 IF xcl=coxIn) AND yCl=( 

240 ELSE 4290 

4240 nbcle=nbcle+l:cle<n)=0 

4250 IF nbcle=l THEN LOCATE #5,9,5:PRINT 

#5,CHR»<247> 
42à0 IF nbcle=2 THEN LOCATE #5, 10,5:PHIN 
T #5.CHR»<247) 

4270 IF nbcle=3 THEN LOCATE »5.11,5:PRIN 
T #5, CHS* (247) 

42B0 PEN liLOCATE cox ( n ). coy ( n ) i PRINT CH 
•M 246) 

4290 pause=0:GOTO 2120 
4300 '*»»*.***##*****»*< 



4310 



iCtîi 



4330 IF M="C" THEN INK 0,0:INI\ 1,9:1NK 
2, 11 -BORDER 

4340 PAPER 0:PEN 2iCLS:F0R 1=3 TO 37:L0C 
ATE 1,1: PRINT CHR*(221) :L0CATE i.9sPRINT 

CHR*(221):NEXT i 
4350 FOR i=2 TO a:LOCATE 3,i:PRINT CHR*l 
2211-LOCATE 37,iiPHINT CHR«<221 ) :NEXT i 
4360 READ a: IF a=20 THEN 4410 
4370 IF a<10 THEN 43B0 ELSE 4390 
4380 Iig»»tcol«3lG0T0 436B 
4390 col=col+l 

4400 LOCATE col , 1 19: PRINT CHRS(a) : GOTO 4 
360 

4410 WINDOW #4>, 1,40, 11, 25 s PAPER #6,0:CL5 
#6: PEN 3 
4420 FOR i-1 TO 14:PR1NT #6:NE>T 
4430 GOSUE 5820 

4440 PRINT #6, 'Voulez-vous les instructi 
ons ? (O/NI* 

4450 I*=UPPER*UNKEY$>:IF I*='N" THEN RE 
TURN ELSE IF ItO'O 1 THEN 4450 



444.0 CLS #4>:PRINT *4.:PRINT #6:T$=" IN5TFU 

CTIONS'iGOSUE 5290 

4470 T*="Pour faire défiler les instruct 

ion5,*:G0SUB 52B0 

44B0 T*="appuyez sur une touche quelconc, 

ue.*îG0SUE 5290 

4490 CALL SEE04. 

4500 Tï= ,, Vous vou5 trouve; Sans un labyr 

inthe de*:G0SUB 5290 

4510 TS="10 étages et vous devez en sert 

11- le":G0SUB 5290 

4520 T*="plu5 rapidement possible. ' :G0SU 

B 5290 

4530 CALL 4BB06 

4540 T*="Mais, pour pouvoir sortir.il vo 

us":GOSUB 52B0 

4550 T*="faudra être en possession des 3 

clefs' : GOSUE 5290 
454.0 TS="qui vous permettront de deverre 
uiller*:GOSUE 5290 
4570 T*="les 3 cadenas qui condamnent la 

porte" :GOSUB 5290 
4580 T*="de sortie, "s GOSUB 5290 
4590 CALL &BE06 

44.00 T*="Le& clefs sont enfermées dans 5 
, 4 ou':GOSUB 52B0 

4610 T*="seuleinent 3 des 10 coffres que 
vous* : GOSUE 5290 

4620 T*=" trouverez dans le labyrinthe.*: 
GOSUB 5290 
4630 CALL &BE06 

4640 T«="L'ouverture d'un coffre necessi 
te la'iGOSUB 5280 

4650 T«="connaissance d'un code constitu 
e de S":GOSUE 5290 

4660 Tï="lettres formant un nom d'animal 
." ] GOSUB 5290 
4670 CALL &BB06 

46B0 TS="Les lettres du code sont dissim 
ulees":GOSUB 52B0 

4690 T*="a différents endroits de l'etag 
e. U":GOSUB 5290 

4700 T*="peut arriver qu'une lettre du c 
Dde ne':G0SUE 5290 

4710 T*="puisse pas être obtenue. De tout 
e façon, "i GOSUB 5290 

4720 T*="vous n'avez pas besoin de conna 
itre":GOSUE 5290 
4730 T«=" toutes les lettres du code pour 

essayer": GOSUB 5290 
4740 T$="d*ouvrir un cof f re. " iGOSUE 5290 

4750 CALL 4BB06 

4760 T*="Les escaliers vous mèneront a u 

n autre" :G0SUB 52B0 

4770 TI="etage, mais pas obligatoirement 

voisin. -:G0SUE 5290 
47B0 T*='Un escalier relie toujours les 
deux" iGOSUB 5290 



e du'iGOSUB 5290 




5120 PRINT(I6:PR!NT#6,* "; CHR* (164) ; 


4B00 T*=" labyrinthe voi 


s indiquera l'ela 


: les lettres du code" 


ge ou'iGOSUE 5290 




5130 PRINT*6iPRINTIt6, ' ■ iCHR«(233>: 


4810 Ti="vous vous troL 


vez. ":G05UB 529B 


: la sortie" 


4820 CALL SBB06 




5140 CALL &BB06 


4B30 TJ="vou5 n'ave; le 


droit de rester 


5150 T*=" REMARQUES" :GOSUE 5280 


a un'iGOSUB 5280 




5160 T*="La forme des labyrinthes, les 


4B40 T«="meme étage gu' 


jn temps limite ( 


ositions":GÛBUB 52B0 


180 sbcJ'iGOBUB 5290 




5170 T*="des escaliers, du coffre, des 


4B50 T*="Au bout de ce 


aps de temps, vo 


ettres" :GOSUE 5290 


us serez":GOSUB 5290 




5180 T«="du code, de la porte de sortie 


4860 T*=" transfère auto 




restent" iGOSUB 5290 


autre" iGÛSUE 5290 




5190 T$="les mêmes au cours d'une parti 


487B T*="etage. Aussi, 


surveillez l'horl 


, mals":GOSUB 5290 


oge.":G0SUB 5290 




5200 T*="changent si vous en faites une 


4880 CALL &BB06 




autre. ■ iGOSUB 5290 


4B90 T*=*Si vous êtes c 


:incE, vous pouve 


5210 CALL 6BE06 


; VOUSMSOSUB 5280 




5220 T*="LorsQue vous arrivez a un nouvs 


4900 Ts="en sortir en u 




1 étage, ":G0SUB 5280 


e <P>-:GOSUE 5290 




5230 T*="et même si vous y êtes déjà pa- 


4910 T*="qui vous perme 


de percer une c 


se, un":G05UE 5290 


loisDn.'iGOSUB 5290 




5240 T*="un nouveau code est affecte au 


4920 T**"Mais. altentio 


i, suivant la res 


coffre. "iGOSUB 5290 


istance":GOSUP. 5290 




3250 T*=" BONNE CHANCE" :G0SUB 5280 


4930 T*="de la cloison. 




5260 CALL 6EE06 /^fiB^—rfftp 


ire au":G0SUE 5290 




5270 CLSiRETURN //"^T^SÊi 


4940 TS="percaqe peut e 


re plus ou moins 


5280 PRINT #6 \Tr^P / ^^à 


lona:"iGOSUE 5290 




5290 PRINT #6:PRINT 116 V^*"" 


4950 T*=°de 5 a 20 seco 


ides. Aussi, n'ut 


53B0 LOCATE #6, INT< (40-LEN<Tï) >/2)+l, 25: 


ilisez":GOSUE 5290 




FOR t=l TO LEN(T*):PRINT ttb.rlIDSIT*, t, 1 ) 


4960 T*="cette possibil 




;:IF MID*(T*,t,lK>" ■ THEN SOUND 1,284, 


ent.":G0SUB 5290 




3,5,0,0,1 


4970 CALL &BB06 




5310 FOR d=l TO SBiNEXT dîNEXT t : RETURN 


4980 T*=-Tout cela sera 


t très faci le, s 




'il n'u":GOSUB 52B0 




5320 DATA 3,128,221,221,221,221,225,223. 


4990 Ts=" avait pas des 


an tomes qui rode 


221,221,225,128,128,221,221,221,221,225, 


nt et" :GOSUB 5290 




128. 128, 221 , 221 , 221 , 221 , 221 ,221 , 12B, 223, 


5000 T*="qui ont la mau 


/aise habitude de 


221,221,221,221,225,128 


vous" iGOSUB 5290 




5330 DATA 4, 128, 12B, 221 , 221, 221 . 221 , 221, 


5810 TS="derober les cl 


ïf« et d'aller le 


221,221,221,128,128, 12B, 128, 128,221,221, 


s":GOSUB 5290 




12B, 128, 128,128,223,221,221,224. 128,221, 


5020 T*=" remettre dans 


jn coffre. Bien q 


221,123, 12B, 128,221,128 


u*ils":GOSUB 5290 




5340 DATA 5, 12B, I2B, 221,221, 128,221,221, 


5030 T*="ne vous poursu 


vent pas vraimen 


128,221,221,128,223,221,221,221,221,221, 


t," iGOSUB 5290 




12B.12B,12B,223,221,221.224,12B, 128,221. 


5040 T*="mef iei-vous en 


cependant* iGOSUB 


221 ,221 , 221 , 221 , 224, 128 


5290 




5350 DATA 6.128,128,221,221,128,221,221, 


5050 CALL fcBBQô 




128,221,221,128,221,128,128,128,221,221, 


5060 T*="Pour vous depl 


scer utilisez les 


128,128.223,221,221,224,128,128,128,221, 


flèches" îGOSUB 5280 




221,128,128,128,128.128 


5070 PRINT»6!pP,INT*6iPRINT#fc, ■ * ; CHR 


5360 DATA 7, 128, 12B, 221 , 221 , 12B, 221 ,221 , 


SI244);* : vous" 




128,221,221,128,222,221,221,221,224,222. 


5B8B PRINTtt6:PRINTII6, " 


*ïCHR«(245) ; - 


221 , 12B, 221, 221 , 221 , 221 , 221 , 221 , 12B.222. 


: les fantômes" 




221.221, 221,221,221, 12B 


5090 PRINT*6:PRINTH6. " 


*lCHR*(246);" 


5370 DATA 9.221,221,221,221,221,221,221, 


i les coffres* 




221,71,46,77,65,78,75.79,87,83.75,73,45, 


5100 PRINTItésPRINTSà." 


■;CHR»<247);" 


49,57,56,53.20 


: les clefs" 




5380 ' **»**«*»•*••*•••****• 


5110 PHINTB6:PRINT86, ' 


*;CHR*(24B)i" 


5390 nl*="Victor"ihl=5553 


: les escal iers' 




5400 n2«="Uilliam"!h2=6666 



5410 n3t="Xavier';h3-777 

3420 n4*='Yvan":f,4=8888 

5»30 n5»=-ZDe";h5=10B00 

5440 RETURN 

5450 ■•«*..»«... 

5*6B '»•• fin de partis 

5*73 •• .».«»«.! 

**B0 pause=! 

5490 CLÇtt3:CLStl 

550B sl = INT< TIME/300) s ten>ps = temps+sI-sB* 

tepetD 

5510 IF temps;=h5 THEN LOCATEtl, 1, 10:PRI 
NTtl, -VOTRE SCORE EST TROP" i PRINTtl iPRIN 

TII, 'MAUVAIS POUR POUVOIR" ! PRINTK1 : PBINT 
•1, 'FIGURER AU PALMARES' iGOTO 3390 
5520 IF TEMPS'hl THEN LOCATEtl , 1 , 10: PRIN 
Tel, 'TOUTES MES FEUCITATIONSi":PRINTtlî 

PRINTtl, 'VOUS AVEZ BATTU LE RECORD" : GOTO 
5540 
5530 IF TEMPS<h5 THEN PRINTtl, "BRAVO, BE 
LLE PERFORMANCE* iPRINT»lt PRINTtl, 'QUI VO 
US PERMET DE': PRINTtl: PRINTtl, "FIGURER A 
U PALMARES" sGOTO 3540 
5540 INPUT "Quel est votre nom*;nt 
5550 IF temp*<hl THEN n5*=n4*tn4t=n3«:ii3 
*=n2*in2i=nl*:nl«=n» ELSE IF temps^h? TH 
EN i>5»*n4»:n4*=n3*!n3»=n2»:n2S=n» ELSE I 
F temps<h3 THEN n5*=n4»:n4*=n3»:n3»=ns E 
LSE IF temps-'hù THEN n5«=n4«:n4*=n* ELSE 

IF tmpB<hS THEN n5»»n* 
5560 tem»temps 

5570 IF temOil THEN h5=h4: h4=h3:h3=h2: h2 
=hl:hl=tem ELSE IF *M<h2 THEN h5=(ï4:h4= 
».3!h3=h2lh2=Iem ELSE IF ten.<h3 THEN h5=n 
4:h4*h3jh3=ten> ELSE IF t«Klt4 THEN h5 = h4 
;ti4>tem ELSE IF leur h5 THEN h5=tem 
55B0 CLStl 

5590 FOR 1 = 7 TO 19:L0CATE tl , i, 1 : PRINTtl 
,CHRS(23B):L0CATE tl , i , 7:PRINTtl , CHR« ( 23 
8):NEXT 

5600 FOR 1-2 TO 6:L0CATE Kl . 7, i : PRINTtl , 
CHRI<238>:LOCATE 1 1 , 18. i : PRINTtl . CHR* < 23 
BliNEXT 

5610 LOCATE tl.ll,3iPRINT*H,-MAZe* 
5620 LOCATE tl, 9, 5:PRINTtl, 'PALMARES" 
5630 LOCATE ttl , 3, 1 1 : PRINTtl , " 1- ":nl»:L0 
CATE tl,16,ll:PRINTtl,USING ■#»#«»" ihl; s 

PRINTtl,- sec." 

3640 LOCATE tl,3,i3»PMNT»l,*2- '|n2*tL0 

CATE tl,16,13:PRINTti,USING '**#••* |t>2|l 

PRINTtl," mac." 

5650 LOCATE tl , 3, 15 I PRINTtl , "3- ' |a3*lL0 

CATE tl, 16, 15îPRINTtl,USING " IMIttt" jh3 ; : 

PRINTtl,- sec." 

3660 LOCATE tl , 3, 17tPRINT#l , '4- ":n4»iL0 

CATE tI,l6,17!PRINTtl,USING "tt##»";h4:: 

PRINTtl," sec." 

3670 LOCATE #1.3, 19iPRINT#l, "5- *sn3»jL0 

CATE tl,16, I9!pRINTtl,USING 'ttt*W"|h9ll 

PRINTtl," sec." 



faire une autre partie (O/NI ?■ 

5700 K*=UPPER$<INKEY*>:IF Kt-'M" THEN NE 
U ELSE IF KtO'O' THEN 5700 
5710 ERASE R,S,EX,EY,cox,cou,cle,eodex,c 

5720 Vemp5=0!nfacle=0trecord=hl:CL5iGOTO 
680 

5740 '»«* BRUITAGES «•* 
5730 •»..«.•»»«•. 

5760 SOUND 1.200, 15, 4:S0UND 1,0,5:SOUND 



5770 FOR 1=0 TO 700 5TEP 100 

5780 SOUND l,200O*2»i,10-M/[00,7 

5790 NEXT i: RETURN 

5800 SOUND 1.284, 20, 5:SOUND l,0,2îSOUND 

1,284. 20, 5:S0UND 1 , 319. 20, 5 i SOUND 1.358, 

40, 5: RETURN 

5S10 '«Auprès de ma blonde* 

5820 RESTORE 5880 

5830 FOR no«l TO 92 

5840 READ fr.du 

5850 SOUND 1, fr.du, 5 

5860 SOUND 2,fr/2,du,3 

5970 SOUND 4,fr*2,du,3 

5880 DATA 142. 20, 0, 3, 142, 40, 134, 20, 142,4 



5890 DATA 159, 20. 179, 60, 0, 3, 179, 20. B. 10 

5900 DATA 179,20, 119, 4B, 0,3, 119, 20. 106.4 



5910 DATA 0.3,106,20,119,60,0.3,119,20 

5920 DATA 0,10,142,20,0,3,142,40,134,20 

5930 DATA 142. *>B, 159, 20, 179, 60. 0, 3. I 79, 2 



5940 DATA B, 10. 179, 20, 1 19. 40,0, 3, 1 19,20 

5950 DATA 106.40,0,3,106,20,119,60,0,3 

596B DATA 119, 20,0, 10, 1 19, 20, 106. 4C. e. 3 

5970 DATA 106,20,0,3.106.40,142,20.134,* 



5980 DATA 0,3,134,40,0,3,134,20,119,40 

599B DATA 0, 3. 119, 20, 0, 3. 1 19, 40. . 

6000 DATA 142,60,0,3,142,40.0,10,179.60 

6010 DATA 159.20, 142.20, 134,20. 14:. .40, n 

9,40 

6020 DATA 0,10.159,40.134,20,142,40,159, 

20 

6030 DATA 179,40,213,20,239,40,0.10,179, 

60 

6040 DATA 159, 20. Ift2, 20,134. 20, 142. 60, 11 

9,40 

6050 DATA 0,10,159,40.134,20.142,40.159. 

20 

6060 DATA 179,60,179,40 

60 7B NEXT no 

6080 RETURN 

609B •»#»»< 

6100 ■••• CODES 
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6120 DATA 4)5,73,71,76 


69 


6130 DATA 65,03,80,73 


67 


6140 DATA 66. 73, 67, 72 


69 


6150 DATA 66,73.03,79 


7B 


6160 DATA 66.79,69,85 


70 


6170 DATA 66, B5. 84,79 


B2 


6180 DATA 67, 65, B2, 80 


69 


61=0 DATA 67,72,73,69 


78 


6200 DATA 67,82,65,66 


69 


6210 DATA 67,89,71,79 


69 


6220 DATA 6B, 73, 78, 68 


69 


6230 DATA 68,73,79,71 


79 


6240 DATA 68,79,71,85 


69 


6250 DATA 69,73,68,69 


82 


6260 DATA 70,85,82,69 


su 


6270 DATA 71,82,73.86 


■19 


6280 DATA 71,85,69,80 


69 


6290 DATA 72,69,82,79 


7B 


6300 DATA 72,73,66,79 


85 


6310 DATA 72,85, 80, BB 


69 


6320 DATA 72.89,69,78 


69 


6330 DATA 73,83,65,82 


68 


6340 DATA 75,79,65,76 


65 


6350 DATA 76,65,80,73 


7B 


6360 DATA 76,69,82,79 


64 


6370 DATA 77,65,7B,B4 


69 


6380 DATA 77, 69, B2, 76 


69 


6390 DATA 77,73,76,65 


78 


6400 DATA 77,79,62,83 


69 


6410 DATA 77,79,82,65 


69 


64,20 DATA 77.79,85,76 


69 


643B DATA 77,B5,76.69 


B4 


6440 DATA 77,85,76,79 


84 


6450 DATA 79,75,65,80 


73 


6460 DATA 79, 82, 66, 69 


84 


6470 DATA 80,65,78,63 


65 


6490 DATA 80,79,78,69 


89 


6490 DATA 80,79,85,76 


69 


6500 DATA 82,65,84,79 


78 


6510 DATA 83,65,73,71 


65 


6520 DATA 83,69,82,73 


78 


6530 DATA 83,73,78,71 


69 


6540 DATA 84,65,80,73 


82 


6550 DATA B4,65,84,79 


85 


6560 DATA B4,65,B5,80 


,69 


6570 DATA 84, 73,71, B2 


69 


65B0 DATA 84,62,85,73 


,69 


6590 DATA 86,65,67,72 


,69 


6600 DATA 86,73,83,79 


,78 


6610 DATA 90,69,66,82 


,69 
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EL l'occasion du SICOB et 
#Mde l'arrivée sur le mar- 
^^^ché du PCW 8256, 
AMSTRAD FRANCE organisait 
un petit cocktail au cours duquel 
il nous a été possible de voir et 
toucher ce nouveau matériel. 
Notons que, par la même occa- 
sion, nous avons découvert le 
6128 : il est beau, mais beau... I 
Autour du matériel, il y avait du 
beau monde (c'est normal, puis- 
que nous y étions pour représen- 
ter les lecteurs de CPC). Mme. 
Marion VANNIER et M. François 
QUENTIN d'AMSTRAO FRANCE 
accueillaient, pour l'occasion, M. 
Alan SUGAR, PDG d'AMSTRAD. 
Si quelques questions furent 
posées, on ne peut pas dire qu'il 
y eut "conférence de presse", et 
c'est tant mieux ; l'ambiance 
était détendue. Un portable dans 



la gamme AMSTRAD ? Pas ques- 
tion, paraît-il ! Pourquoi avoir 
choisi les disquettes 3" ? A cause 
de leur prix, pardi ! Et le risque de 
voir tomber ce format dans l'ou- 
bli ? Bref, ce ne sont, semble-t- 
it, que propos alarmistes I La 
pénurie de disquettes ? Faux, on 
a ce qu'il faut pour continuer à ali- 
menter le marché 1 
Nous voilà rassurés, que diable ! 
Soulignant sa combativité sur un 
marché en pleine ébullition, 
symbole des KO mémoire sans 
cesse croissants et... du KO 
infligé à la concurrence, AMS- 
TRAD nous remettait, en partant, 
un petit cadeau : une splendide 
paire de gants de boxe rouges. 
Croye^-nous, on ne va pas les 
"raccrocher" de sitôt ! 
Et si l'on parlait un peu du maté- 
riel ? 



PREMIER CONTACT 
AVEC UN 6128 

Ciblant une clientèle plus profes- 
sionnelle (mais convenant aussi 
aux amateurs II, l'esthétique de 
la machine a été revue. D'allure 
très sobre (les touches de couleur 
ont disparul, la machine est 
moins longue et moins épaisse 
que les 464 et 664. De ce fait, 
l'encombrement dépasse à peine 
celui du clavier détachable de cer- 
tains ordinateurs. Le contact 
avec les touches du clavier n'est 
pas désagréable. La position de 
la touche RETURN (noyée entre 
le clavier et le pavé numérique) 
est un peu déroutante. La touche 
COPY ne se trouve plus au 
milieux des touches curseuf qui, 
elles-mêmes, n'ont plus la même 
disposition. Les commandes Mar- 
che/Arrêt et volume sonore ont 
émigré à l'arriére de l'appareil. 
Sur le flanc gauche, on trouve 
l'entrée joystick, la sortie stéréo 



rendent beaucoup plus faciles les 
opérations de formatage et 
copies de disquettes et fichiers, 
La documentation remise avec 
l'appareil est volumineuse. Nous 
avions acheté le nôtre chez 
VISMO, et l'emballage contenait 
deux manuels : l'un en anglais, 
l'autre en français. 
Le CPC 61 28 écrase, par son prix 
compétitif, les concurrents : ce 
n'est pas nouveau chez AMS- 
TRAD ; le premier faux pas 



Côté mémoire, c'est bien sûr 
64 k supplémentaires répartis en 
4 fois 16 k. Cette gestion par 
"pages" de 16 k est utilisée par 
le soft comme une sorte de dis- 
que virtuel. Le "BANKMANA- 
GER" est le "plus" de ce CPC 
6128, Il assure la gestion des 
64 k supplémentaires. 
Il est ainsi possible d'effectuer 
des sauvegardes et rappels 
d'écrans ultra-rapides, ou 
d'échanger le contenu de deux 
écrans. Les commandes associées 
passent par le RSX (I BANKOPEN, 
I BANKWRITE. ! BANKREAD, 
IBANKFIND). 

LeCPfvl + offre bien des utilitai- 
res intéressants, permettant 
notamment des reconfigurations 
faciles de périphériques (impri- 



i. écra 



;.).lle 



"coupé l'herbe sous le pied" au 
CPC 664. Demandez aux reven- 
deurs, qui en ont en stock, ce 
qu'ils en pensent ! Quant aux uti- 
lisateurs, ils se retrouvent avec 
une machine qui n'est plus fabri- 
quée moins de six mois après sa 
sortie tapageuse. 



La machine de traitement de tex- 
tes à la portée des plus petites 
entreprises. A mi-chemin entre 
l'ordinateur (le PCW 8256 intè- 
gre un Basic rudimentairel, et le 
traitement de texte professionnel. 
La machine se présente sous l'as- 
pect, agréable au regard, d'un 
écran monochrome et d'un cla- 
vier détachable. L'ensemble est 
de couleur crème, et le clavier 
n'est pas sans rappeler celui de 
certains ordinateurs "compati- 
bles". Premier gros reproche : le 
clavier est QWERTY. La clientèle 
française (petits secrétariats, étu- 
diants, etc.), s'y habituera-t-elie ? 
Même si les minuscules accen- 
tuées sont bien présentes, la dis- 
position des touches est contes- 
table. 



Sur le côté droit de l'écran, face 
a l'utilisateur et disposé vertica- 
lement, se trouve le lecteur de 
disquettes 3 pouces. L'écran est 
capable d'afficher 32 lignes de 
90 caractères, limite extrême de 
la lisibilité sans fatigue visuelle. 
Complétant cette configuration, 
une imprimante dédiée, la DMP 
2000 lui est connectée. Sa 
vitesse de travail avec, 
soulignons-le, un niveau de bruit 
très acceptable, est de 90 carac- 
tères par seconde. En qualité 
courrier, elle écrit à 20 cps. Il est 
possible de l'alimenter en feuille 
à feuille ou en continu. 
Le traitement de texte semble 
très puissant et il est capable de 
travailler en "multitâches" , pen- 
dant l'impression, un spooler ali- 
mente l'imprimante, permettant 
à l'opérateur de poursuivre la sai- 
sie : pas de perte de temps ! 
Notons que la saisie semble ralen- 
tie dans ce cas. 
Le Basic, intégré au PCW 8256. 
ne vous permettra pas de jouer â 
SPACE INVADERS, C'est un 
Basic "sérieux" plus gestionnaire 
que joueur : on s'en doutait ! 
La configuration présente, 256 k, 
1 drive, évoluera vers un nouveau 
produit 512 k et 2 drives. Pour 
7000 F, vous pouvez disposer 
d'un bon traitement de texte 
avec imprimante. Seule sugges- 
tion : l'adaptation au marché 
français avec un clavier AZERTY. 
Certainement un bon produit au 
rapport qualité/prix, mais saura- 
t -il séduire une clientèle ? On 
trouve des ordinateurs person- 
nels compatibles IBM PC lavec 1 
drivel pour 10 000 F. 
Reste à leur ajouter écran et 
imprimante pour déboucher sur 
une immense bibliothèque de 
logiciels. Le prix est double, mais 
on peut en attendre d'autres ser- 



de la reconfiguration de caractè- 
res ou de la palette de couleurs. 
CPM + ouvre davantage la voie 
vers les gros logiciels profession- 
nels tournant sous CP/M. Reste 
à les transférer en 3 pouces I 
Quatre faces de disquettes sont 
livrées pour CPM et ses utilitaires. 
Une face supporte CPM 2.2 pour 
assurer une compatibilité avec les 
464 et 664. Notons l'existence 
de DISCKIT 3 et DISCKIT 2 qui 
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• INITIATION 
A L'ASSEMBLEUR 



r 



Denis BOURQUIN 



Après avoir regardé le formai 
d'une ligne assembleur, et avani 
de nous lancer dans les instruc- 
tions du 280, nous allons analy 
set quelques directives assem 
bleurs rencontrées dans pratique 
ment tous les assembleurs Z80 



Us dir. 
d'assemblage 

Les directives d'assemblage sont 
des pseudo -instructions ; elles ne 
provoquent pas de génération de 
code objet, mais elles sont là uni- 
quement pour permettre au pro- 
gramme d'assemblage de fonc- 
tionner normalement. Nous ne 
ferons pas le tour de toutes les 
directives, mats seulement des 
principales, nécessaires à l'écri- 
ture d'un programme ; nous 
introduirons les autres au fur et 
à mesure de l'analyse des instruc- 
tions Z80 avec les exemples. 

La directive ORG 

La syntaxe de cette directive est 
de la forme ORG 4000H. Elle se 
compose de la commande ORG 
et d'une adresse définie sur 16 
bits. Son rôle est d'indiquer au 
piogramme d'assemblage que ce 
qu'il va assembler commence à 
l'adresse indiquée, dans l'exem- 
ple à l'adresse 4000H (en hexa- 
décimal!. La notation hexadéci- 



male a été expliquée en détail 
dans le numéro 1 dans l'article 
Mémoire d'Ecran. 
Comme ZEN est un des assem- 
bleurs les plus répandus sur 
AMSTRAD, nous parlerons d'une 
directive particulière dont il est 
doté : la directive LOAD. 

LOAD 

ZEN est un assembleur qui 
assemble uniquement en 
mémoire ; il sera donc nécessaire 
de lui indiquer dans quelle zone 
mémoire il devra loger le code 
qu'il génère. Ce sera le rôle de la 
directive LOAD ; en l'absence de 
cette directive, il ne génère qu'un 
listing d'assemblage. Exemple : 
sous ZEN pour écrire un pro- 
gramme qui commencera à 
l'adresse 8000H et que l'on vou- 
dra exécuter ensuite ou sauver 
sur cassette, il faudra écrire : 

ORG 8000H 

LOAD 8000H 

Cette directive LOAD n'existe 
pas sur les autres assembleurs 
qui génèrent le code objet soit 
dans un fichier disque, soit en 
mémoire lorsqu'ils possèdent 
l'option d'assemblage "en 
mémoire". 

La directive EQU 

Le rôle de cette directive est d'af- 
fecter une valeur à un symbole, 
symbole qui sera une constante ; 
cette fonction est l'équivalent du 
CONST en Pascal. Chaque fois 
que l'assembleur rencontrera, par 
la suite, ce symbole, il le rempla- 



est équivalent à LD C,5 et l'as- 
sembleur génère le code corres- 
pondant à LD C.5. 
Autre exemple : 



L'assembleur génère le code 
équivalent â LD BC.0F61OH. 
Nous avons associé â MOTCAS 
la valeur hexadécimale 0F610H, 
et tout au long de notre pro- 
gramme, ce symbole vaudra 
0F610H. 

Normalement, dans les assem- 
bleurs, un symbole défini par la 
directive EQU ne peut pas être 
réaffecté ; nous ne pouvons trou- 
ver la directive "ETIQUETTE" 
EQU qu'une seule fois dans un 
programme. 

Dans les exemples, nous avons 
écrit les constantes soit en déci- 
mal, soit en hexadécimal ; nous 
allons ouvrir une parenthèse sur 
la manière d'entrer une constante 
en assembleur. 

LES CONSTANTES 

Nous pouvons, dans une ligne 
instruction, écrire une valeur 
immédiate : 

— en notation décimale : en 
général, l'écriture est la suivante : 
10, 15, ; 



base est différente en mettant la 
lettre correspondant à la base de 
numérotation à la fin de la cons- 
tante ; la lettre pour la notation 
hexadécimale est la lettre H. La 
notation hexadécimale est la base 
16, et nous avons donc 16 chif- 
fres qui sont à 9 et de A à F. 

Les constantes octales 

Comme pour la représentation 
hexadécimale, la représentation 
octale sera indiquée par une let- 
tre, cette lettre est la lettre 
après la constante. Exemple : 
230, 

230 est équivalent à 1 9 en déci- 
mal et à 13H. Les chiffres dans 
cette représentation vont de à 



Les constantes ASCII 

Un caractère peut être représenté 
par un code international abon- 
damment utilisé en informatique : 
le code ASCII. Par exemple, la let- 
tre A est codée par le nombre 65 
ou 41H en hexadécimal. Nous 
pourrons donc utiliser les lettres 
sous leur représentation ASCII en 
assembleur ; par exemple pour 
l'affichage d'un texte à l'écran, le 
code d'échange des caractères à 
afficher sera le code ASCII. 
Exemple : en assembleur nous 
pourrons écrire ; 

LD A,'B' 
ce qui est équivalent â : 

LD A, 66 
car le code ASCII de 'B' est la 

Exemples : 10H, OFFH, OCOOOH 
Comme dans ce système de 
numérotation nous utilisons des 
chiffres qui sont représentés par 
des lettres, et pour éviter toute 
confusion avec des symboles, 
lorsque le premier chiffre d'une 
constante hexadécimale est une 
des lettres A à F, il est impératif 
de mettre devant un 0, sinon une 
erreur sera générée à l'assem- 
blage. 

Revenons a nos directives d'as- 
semblage. 

Dans un programme, nous trai- 
tons des données, il va donc être 
nécessaire de leur réserver de la 
place en mémoire. Nous avons, 
pour cela, un certain nombre de 



Directive DB ou DEFB 
(défi ne bytel 

Le rôle de cette directive est de 
réserver un ou plusieurs octets en 
mémoire. 

Exemple : MESSAGE DB 'BON- 
JOUR' Le message est dans le 
champ étiquette, DB dans le 
champ opération, 'BONJOUR'. 
Dans le champ opérande, cette 
ligne d'instructions réservera une 
zone mémoire ; dans la première 
case de cette zone, nous aurons 
la valeur 65, dans la deuxième la 
valeur 79, etc. Chacune de ces 
valeurs étant le code ASCII de la 
lettre correspondante : 65 est le 
code ASCII de B et 79 le code 
ASCII de O. Dans la suite de cette 
article, nous ne parlerons plus de 
cases mémoire mais d'octets, car 
chacune de nos cases mémoire 
est un octet, comme nous 
l'avions expliqué dans le numéro 
précédent. 

Lorsque, dans la suite du pro- 
gramme, nous ferons référence à 
MESSAGE, ce sera à l'octet 
d'adresse correspondant à la 
case où se trouve la lettre B 
(valeur 65), c'est-à-dire si nous 
avons : 



la lettre B se trouve 

7000H, la lettre O 

7001 H, etc. 

Autres exemples : 

VAL1 OB 10 

VAL2 DB 0F5H 

TAB DB 10,11,12,14 

Le troisième exemple a réservé 4 

octets aux emplacements 10, 

11, 12 et 14. 

Directive DW, DEFW 
( défi ne w or cil 

Par cette directive, nous ne réser- 
vons plus un octet, mais un 
groupe de deux octets appelé 
mot (mot de 16 bits]. 
Exemple ; MOT1 DW 0F542H 
Nous avons, par cette directive, 
réservé deux octets en mémoire 
dans lesquels nous aurons mis les 



valeurs 42H pour le premier octet 
et F5H pour le second. Nous 
voyons ici une autre particularité 
du Z80 qui, pour stocker des 
mots en mémoire, stocke d'abord 
l'octet de poids faible, puis l'oc- 
tet de poids fort. 
Dans la suite du programme, si 
nous écrivons LD HL,(MOT1|, 
nous mettrions dans la paire de 
registre HL la valeur F542H, le 
registre H à la suite de cette ins- 
truction contenant 0F5H et le 
registre L contenant 42H. 
Nous pouvons trouver aussi : 
BRANCH DW TABLE avec 
TABLE qui est une étiquette de 
programme et dans ce cas, 
BRANCH est initialisé à la valeur 
de l'adresse correspondant à 
TABLE. 

Directive DS ou DEFS 
(défi ne st orage) 
La syntaxe de cette directive est 

BUFFER DS 128 
Dans cet exemple, nous avons 
réservé une zone mémoire de 
128 octets que nous avons appe- 
lée BUFFER. 

Cette directive n'affecte p3s une 
valeur à un octet, mais réserve un 
certain nombre d'octets ; nous 
trouvons derrière DS ou DEFS le 
nombre d'octets réservés. 
La syntaxe employée pour les dif- 
férentes directives utilisait l'es- 
pace comme séparateur. Les uti- 
lisateurs de ZEN auront remarqué 
que leur assembleur n'utilisait pas 
la même syntaxe. 
Comme il a été dit plus haut, ZEN 
utilise les deux points comme 
séparateur du champ étiquette et 
du champ instruction ; nous 
aurons donc avec ZEN l'écriture 
suivante pour les directives 
DEFINE : 

MOT1:DW OF542H 
MESSAGE:OB 'BONJOUR 
BUFFER:DS 128 
Dans le prochain numéro, nous 
passerons aux choses sérieuses 
et commencerons l'analyse des 
instructions Z80 avec l'écriture 
de nos premiers petits program- 
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INK, PEN... PAPER... BOR- 
DER... Bouh, que c'est compli- 
qué '■ Expliqué tout autrement, 
cela va devenir enfin clair ; 

Il V a cinq notions différentes : 

— Le numéro de référence de la 
teinte ; il y en a 27 numérotées 
de (noir) à 26 (blanc brillant). 
C'est la liste de la page E3.2 du 
manuel d'origine. Appelons-le 
RT, c'est-à-dire référence teinte. 

— La palette de teintes que l'on 
se sélectionne, c'est INK, En 
mode normal, MODE 1, on n'a 
droit qu'à quatre INK. On les 
numérote de à 3. Dès la mise 
sous tension (MODE 1 ), on nous 
propose les INK suivants : 

INK 0, 1 : bleu parce que RT = 1 = 

bleu. 

INK 1,24 : RT = 24 c'est jaune 



INK2,20:RT + 20,i 
vif, 



i turquoise 



foncé. Vous voulez un fond 
rouge ? Faites PAPER 3, parce 
que INK 3, c'est le rouge s 



INK 3,6 : RT = 6 = rouge vif. 
Vous voulez remplacer le tur- 
quoise par le vert de RT = 9 ? 
Facile, faites INK 2,9 (en mode 
direct ou dans un programme). 
En MODE 0, on a 16 INK sur la 
palette, de INK à INK 15. Les 
quatre premiers (0 à 3) sont les 
mêmes RT que précédemment. A 
quoi correspondent-ils ? Consul- 
te; le tableau de la page E3.4 du 
manuel. Vous voulez du noir (noir 
RT = 0) ? C'est INK n° 5. 
En MODE 2, on n'a que 2 INK, 
INK et INK 1. 

— PAPER, c'est la couleur de 
fond. Par défaut, l'AMSTRAD 
prend pour PAPER l'INK 0, bleu 






fait. 



PAPER 0,3, il v aura clignoter 
bleu-rouge (aucune rétine n'y 
résiste...). 

— PEN (styio en anglais). C'est la 
couleur des caractères, des traits. 
Même syntaxe que PAPER, on le 
fait suivre du numéro d'INK. P3r 
défaut, c'est INK 1 (jaune vif). 
Vous voulez des lettres bleues 
sur fond rouge ? Faites PAPER 3: 
PEN 0. On peut écrire PEN avant 
PAPER, peu importe. 

— BORDER, c'est la couleur de la 
bordure, elle est totalement indé- 
pendante des couleurs présentes 
sur la palette, car on fait suivre 
BORDER, non pas d'un numéro 
INK, mais du numéro RT désiré 
(de à 261, En MODE 1, on peut 
avoir 4 teintes en INK plus une 
cinquième en BORDER. Exemple. 
BORDER 16 = orange-clair. 

OK ? Bon. alors voyons quelques 
cas particuliers. 

— Par étourderie PAPER et PEN 
ont le même numéro d'INK ; pire 
qu'un CLS parce qu'il n'y a pas 
de "READY". Ne vous affolez 
pas, pressez ESC deux fois 
(Break) puis tapez PEN 1 (ou 2 ou 
3} et ENTER, et votre texte réap- 

— En MODE 1, faisons PEN 6. 
alors que l'on ne devrait pas 
dépasser PEN 3 ; pas de message 
d'erreur, l'AMSTRAD repart à 
INK ; PEN 3 = PEN : PEN 5 = 
PEN 1 ; PEN 6=PEN 2 ; etc. 
jusqu'à PEN 26. 

— Pour modifier les couleurs. 
Rappelez-vous les deux choses 
prises par défaut lors de la mise 
sous tension, à savoir la palette 
des INK/n° RT (page E3.41 et le 
fait que PAPER - INK et PEN = 
INK 1, ou de dire PEN 2 ou 
PAPER 3, ou de combiner ces 
deux techniques. 

Attention ! Il y a des mariages 
malheureux entre deux couleurs 
voisines ; perte de netteté 
(l'AMSTRAD n'y est pour rien, le 
moniteur non plus), ou contraste 
trop faible ou insoutenable. A 
vous de chercher quelques bons 



jOuEr* 



|f\J T E R R U P T i a r\J S 




AMSTRAD est capable de faire 
plusieurs choses à la fois, et 
ce travail en "multitâches" est 
accessible, vous le savez, depuis 
le Basic. EVERY et AFTER n'étant 
pas universels, nous avons cher- 
ché à aller plus loin : 

Afficher l'heure en Basic sous le 
contrôle d' EVERY est extrême- 
ment simple, seulement il est 
impossible d'inclure un tel sous- 
programme dans un programme 
utilisant des INPUT : la pendule 
se bloque pendant la durée de 
l'entrée des variables (elle est 
remise a l'heure ensuite!- Devant 
un tel problème, on est conduit 
à utiliser le langage machine. 
L'AMSTRAD est capable de trai- 
ter des interruptions, synchrones 
ou asynchrones, auxquelles on 
peut associer des "événements" 
exécutables cycliquement. Plu- 
sieurs éléments sont paramétra- 
bles et, sans entrer en profondeur 
dans (es détails, nous vous pro- 
posons, au moyen de deux petits 
exemples d'application, de faire 
plus ample connaissance avec 
ces interruptions. 
Deux types d'interruptions nous 
intéressent : 

- FAST TICKER apparaissant 
tous les 1/300" de seconde, 

- FRAME FLYBACK, tous les 
1 150* de seconde, correspon- 
dant au retour du spot assu- 
rant le balayage. 

Les équivalents "soft" de ces 



interruptions sont appelés 
"EVENTS" et, si leur manipula- 
tion s'avère un peu délicate au 
début, vous conviendrez que 
savoir les utiliser ouvre pas mal 
d'horizons. L'installation d'un 
"EVENT" suit un schéma relati- 
vement simple. L'événement est 
décrit par sa classe, sa priorité, 
et l'adresse de la routine qui est 
appelée pour le traiter. 
La classe : événements synchro- 
nes ou asynchrones. Les événe- 
ments synchrones sont traités 
immédiatement, les synchrones 
dès que le système a le temps. 
Pour les événements synchrones, 
on attribue une classe de priorité. 
Quant à l'adresse de la routine, 
elle est donnée au système lors 
de la "description" initiale de 
l'événement. 

A chaque "EVENT" est attribuée 
une zone mémoire Id'un certain 
nombre d'octets en fonction du 
type d'interruption) réservée au 
système. 

L'initialisation d'un EVENT se fait 
comme suit : 

HL contrent l'adresse de la zone 
mémoire réservée. 
B contient "la classe". 



C contient une valeur fonction de 
l'adresse mémoire de la routine 
d'événement (selon qu'elle est en 
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RAM, ROM, ROM externe,... > 
DE contient l'adresse de la rou- 
tine qui sera exécutée à chaque 
interruption. 

Voici un premier exemple d'appli- 
cation: remplacer le curseur fixe 
par un curseur clignotant. On va 
donc, successivement, éteindre 
et allumer le curseur. On utilisera 
pour cela le FRAME FLYBACK 
(donc toutes les 20 ms). La zone 
mémoire à réserver pour le 
système est de 9 octets. Le type 
d'événement est "asynchrone". 
La routine sera en RAM centrale. 
Le contexte a été sauvegardé à 
chaque exécution de la routine 
interruption : bien que cela ne soit 
pas nécessaire, notre auteur Eddy 
DUTERTRE a pris toutes ses pré- 
cautions. Les routines en BB7B et 
BB7E correspondent respective- 
ment à l'autorisation et l'interdic- 
tion d'affichage du curseur. 
Si le sujet (interruptions) traité ici 
rapidement, vous passionne, 
faites-le nous savoir, et nous 
ferons un article plus complet sur 
la question. 
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-compilateur PASCAL, mais ce 
compilateur fonctionne eous le 
système d'exploitation Basic et 
est de tailla réduite ; Il permet 
simplement une bonne initiation 
au langage Pascal, mais II lui 
manque surtout les opérations 
sur las fichiers. Il manquait donc 
a l' AMSTRAD un compilateur 
performant et fonctionnant sous 
CP/M, Il existe maintenant et 
nous na pouvons espérer mieux . 




En effet, un des meilleurs < 
lateurs PASCAL:TURBO PASCAL 
est maintenant disponible sur 
AMSTRAD. Tous les program- 
meurs s'intéressant au langage 
Pascal ont entendu parler de 
TURBO PASCAL. 



Pour ceux qui 
pas le langage Pascal, i 
en dire quelques mots. 
Le langage Pascal a été déve- 
loppé en 1971 par le Pr. Niklaus 
WIRTH à l'université technique 
de Zurich ; ce langage fut surtout 
utilisé, au début de son exis- 
tence, dans les universités, mais 
depuis te début des années 80, 
il connaît un grand essor et est 
utilisé dans de nombreuses appli- 
cations professionnelles. C'est un 
langage mettant en application la 
méthode de programmation 
appelée programmation 
rée. 



Mais avant de parler de ce qui a 
fait le succès de TURBO PAS 
CAL, nous dirons quelques mot! 
de son concepteur qui est fran 
çais et s'appelle Philippe KAHN 
Il a fondé, aux Etats-Unis, une 
société : BORLAND INTERNA 
TIONAL. La qualité et les prix ridi- 



culement bas de ses logiciels ont 
tait la force et la renommée de 
cette société. Pour s'en rendre 
compte, il suffit de regarder le 
prix du compilateur TURBO PAS- 
CAL sur AMSTRAD : 741 ,25 F, 
alors que jusqu'à ces dernières 
années le prix d'un compilateur 
Pascal souvent moins performant 
était de 10 à 20 fois supérieur, 

UN COMPILATEUR TURBO 

Tout le monde connaît l'intérêt 
d'un langage compilé, mais 
regrette souvent le temps passé 
sous des éditeurs peu perfor- 
mants puis en compilation pour 
s'apercevoir qu'il restait une 
erreur et qu'il fallait revenir sous 
l'éditeur, rechercher cette erreur 
et recompiler. Comme nous le 
verrons par la suite, TURBO PAS- 
CAL rend ai: 



;ingra 



I. Mais 



essai de ce fameux compilateur 

TURBO PASCAL est un compila- 
teur qui tourne sous CP/M ; nous 
passons donc sous CP/M et 



un certain nombre de fichiers 
PAS, qui sont des fichiers source 
de programmes PASCAL de 
démonstration que nous avons 
beaucoup appréciés, et enfin un 
fichier READ.ME qui est assez 
explicite par son nom. Ce dernier 
est un fichier texte qui contient 
un certain nombre de conseils et 
d'explications quant à l'installa- 
tion et l'utilisation de TURBO 
PASCAL sur AMSTRAD. 
TURBO PASCAL est un compila- 
teur qui contient son propre édi- 
teur de texte ; nous allons donc 
appeler TURBO pour écrire notre 
premier programme PASCAL. Les 
premiers messages s'affichent, 
nous voyons que nous sommes 
en possession de la version 
3.O0A de TURBO PASCAL pour 
CP/M-80,280. Et nous avons le 
message ; INCLUDE ERROR 
MESSAGES (Y/N) 7. Si nous 
répondons Y, nous avons un 
menu qui s'affiche, ainsi que la 
quantité d'octets mémoires dis- 
ponibles, mais voyons la figure 1 , 
exemple d'écran que nous allons 
expliquer. 







regardons ce que contient la dis- 
quette TURBO PASCAL. Nous y 
trouvons un fichier TURBO.COM 
qui est le compilateur-éditeur, un 
programme d'installation du ter- 
minal propre à l'AMSTRAD, un 
fichier TURBO.MASG qui con- 
tient les messages d'erreurs, un 
fichier TURBO.OVR propre à la 
version CP/M et qui permet l'exé- 
cution de programme .COM sous 
TURBO comme des utilitaires de 
copie ou tout autre programme, 



Sur cet écran apparaît la liste des 
commandes disponibles, et l'es- 
pace mémoire disponible pour 
l'écriture de nos programmes ; 
6637 octets ; la première impres- 
sion est que cet espace est plus 
que réduit sous CP/M. il est pos- 
sible d'augmenter sa taille en 
n'incluant pas les messages d'er- 
reur ; dans ce cas, l'espace dis- 
ponible est de 7952 octets. En 
effet, sous CP/M, il reste environ 
39 k à la disposition de l'utilisa- 



teur, le compilateur TURBO en 
occupant 31 k, il ne nous reste 
donc pour loger nos sources et 
nos objets que 8 k. Mais, 
rassurez-vous, avec TURBO PAS- 
CAL, il est possible de faire des 
programmes beaucoup plus 
grands que 8 k-octets. Notons 
que, dans ce cas, nous perdrons 
les avantages de rapidité de 
TURBO PASCAL. Les program- 
mes correspondant à des applica- 
tions importantes seront compi- 
lés dans un fichier .COM, pour 
être exécutés et, dans ce cas, ils 
pourront aller jusqu'à 39 k-octets 
de code. Il faudra prendre la pré- 
caution de diviser le source en 
plusieurs fichiers qui seront inclus 
à un fichier principal lors de la 
compilation, car il ne peut y avoir 
plus de 8 k-octets de source pré- 
sents en mémoire. Et si votre 
application ne tient pas sur 39 k- 
octets, il vous reste encore la 
possibilité de scinder en overlay, 
car TURBO supporte aussi cette 
technique de programmation. 
Nous venons de voir un exemple 
d'écran qui résume les comman- 
des disponibles sur TURBO. Ces 
commandes sont accessibles par 
une lettre en majuscule. 
L : permet de changer l'unité de 

disque de travail. 
W permet de changer le fichier 

de travail. 
M permet de spécifier un fichier 
principal, ce dernier peu! être 
différent du fichier de travail. 
E permet de passer sous l'édi- 
teur incorporé à TURBO 
PASCAL. 
C lance la compilation dans le 

mode choisi par Option. 
R permet d'exécuter un pro- 
gramme compilé ou si le pro- 
gramme n'a pas été compilé, 
le compile avant de l'exécu- 

S permet de sauvegarder le 
source en cours. 

X permet d'exécuter un autre 
programme en cours d'utili- 
sation de TURBO. 

D permet de faire un directory 
de disque sous TURBO. 

O retourne au système d'ex- 
ploitation CP/M. 

permet de choisir entre trois 
options, M, C et M. M est le 
code mémoire par défaut, le 
code objet se trouve en 



mémoire près la compilation, 
C : le code objet issu de la 
compilation est écrit sur un 
fichier disque ,COM, H : le 
code objet est écrit dans un 
fichier chaîné ; ce fichier ne 
contient pas la librairie Pas- 
cal et sera donc appelé pat 
un autre fichier. 
Mais passons tout de suite à un 
essai de l'éditeur. Nous choisis- 
sons l'option E dans le menu, une 
question apparaît : "Work file ?". 
Entrons essai. pas, l'écran s'ef- 
face, et nous sommes sous l'édi- 

Nous sommes en présence d'un 
éditeur pleine page très perfor- 
mant ; les déplacements à l'inté- 
rieur d'un texte sont obtenus à 
partir du pavé des flèches de 
l' AMSTRAD, et il est possible de 
se déplacer d'un caractère, d'un 
mot, d'une ligne ou d'une page. 
Cet éditeur peut effectuer l'inden- 
tation automatique, il peut reca- 
drer chaque mot d'une ligne par 
rapport à la précédente, ce qui 
favorise la lisibilité du pro- 
gramme. A ces commandes 
s'ajoutent toutes les commandes 
d'insertion, suppression, déplace- 
ment, remplacement. Mais il 
n'est pas nécessaire de faire 
l'éloge de tels éditeurs qui sont 
bien plus agréables d'utilisation 
que les éditeurs ligne, et en plus 
quand il sont bien faits, ça ne fait 
qu'augmenter leur intérêt. 
Regardons maintenant la syntaxe 
de ce PASCAL. Il apparaît au pre- 
mier coup d'oeil jeté dans le 
manuel fourni avec la disquette 
qu'il suit de la définition du PAS- 
CAL STANDARD. Il est à noter 
que ce livre est rédigé en français 
et est très bien conçu ; il contient 
tous les renseignements néces- 
saires à l'utilisation de TURBO 
PASCAL. Le débutant en PAS- 
CAL a ainsi à sa disposition une 
excellente introduction à PAS- 
CAL avec le livre et la disquette 
TURBO TUTOR, qui sont vendus 
séparément. 

TURBO PASCAL comprend un 
certain nombre d'extensions par 
rapport au PASCAL STANDARD, 
ce sont : 

— les variables du type adresse 
absolue, 

- la manipulation de bits et d'oc- 



— l'accès direct à la mémoire 
et aux ports d 'entrées-sorties 
(la mémoire est considérée 
comme un tableau prédéclaré 
MEM de 65536 octets, il en 
va de même pour les entrées- 
sorties qui sont le tableau 
PORT de 256 octets;. 

— les chaînes de caractères 
dynamiques, 

— l'ordre des sections dans la 
partie déclaration des pro- 
grammes est libre, 

— la possibilité d'accéder aux 
fonctions du système d'ex- 
ploitation par des procédures 
et fonctions prédéfinies : 
BDOS. BIOS, BDOSHL, BIO- 
SHL, 

— la possibilité de 4 fichiers 
imbriqués, 

— la possibilité de générer du 
code machine en ligne par 
l'instruction INLINE, 

— les opérations logiques peu- 
vent se faire sur des entiers, 

— la possibilité de chaîner des 
programmes avec variables 
communes, 

— les fichiers de données à 
accès aléatoire, 

— les constantes structurées, 

— les fonctions de conversion de 
type. 

Nous avons relevé comme autre 
particularité les instructions 
BLOCKREAD et BLOCKWRITE 
qui servent aux manipulations de 
fichier sans type. Ces procédures 
travaillent sur des enregistre- 
ments de 128 octets. 
L'accès au multi-fenêtrage de 
l' AMSTRAD peut se faire par 
l'envoi de la valeur 26 â l'écran 
et des coordonnées de la fenêtre. 
Exemple : si ces coordonnées 
sont XI, X2, Y1, Y2 et ont été 
déclarées BYTE, le positionne- 
ment dans cette fenêtre se fera 
par : WRITEl#26,CHR(X1 -1). 
CHRIY1 -1),CHR<X2-1),CHR 
IY2-1)). 

L'utilisation des variables dynami- 
ques se fait au travers des pro- 
cédures standards NEW et DIS- 
POSE ainsi que les procédures 
MARK et RELEASE. 
TURBO PASCAL Permet les 
manipulations de chaîne et pos- 
sède de nombreuses procédures 
pour cela : CONCAT, COPY, 
DELETE, INSERT, LENGTH, POS, 
STR, VAL. 



En résumé, avec TURBO PAS- 
CAL, nous avons un compilateur 
PASCAL très complet. Notos que 
pour l'utilisation des possibilités 
graphiques de l'AMSTRAD, 
TURBO PASCAL, dans sa version 
CP/M, ne contient aucune fonc- 
tion ou procédure spécifique. 
Nous avons essayé d'utiliser les 
routines en ROM, mais ce fut 
sans grand succès. Rassurez- 
vous, il est prévu avec TURBO 
pour AMSTRAD un pack graphi- 
que qui permettra d'utiliser tou- 
tes les ressources de l'ordinateur, 
mais lorsque nous avons écrit ces 
lignes, nous ne le possédions 
pas ; lorsque nous l'aurons reçu, 
nous en dirons quelques mots. 

Après avoir passé en revue la 
syntaxe, voyons ce qui fait aussi 
la force de ce Pascal : sa rapidité 
de compilation. Il n'est pas 
nécessaire de dire que le temps 
de compilation en mémoire est 
négligeable. Lorsque'une erreur 
est rencontrée au cours de la 
compilation, il suffit d'appuyer 
sur la touche ESC pour retourner 
instantanément sous l'éditeur 
avec le curseur situé juste der- 
rière cette erreur ; il n'y a plus 
qu'à la corriger et relancer la 
compilation. La mise au point 
d'un programme est aussi aisée 
qu'en Basic. La compilation de 
programmes importants se fait 
sur disque dans un fichier .COM. 
Sur la disquette TURBO se trouve 
un programme de démonstration 
qui n'est rien d'autre qu'un 
tableur. Ce programme occupe 
1 200 lignes et est compilé en 30 
secondes. Il permet de mettre en 
évidence les possibilités infinies 
de TURBO PASCAL. 
Nous avons apprécié les pro- 
grammes de démonstration livrés 
avec la disquette tels que le mini- 
tableur, la commande lister, l'uti- 
lisation des fenêtres, l'utilisation 
de la ligne de commande. 
L'AMSTRAD, grâce â son sys- 
tème d'exploitation CP/M, a pu 
se doter là d'un des meilleurs 
compilateurs Pascal actuels. 

Le mois prochain, nous vous don- 
nerons le listing source d'un édi- 
teur de secteurs pour disques que 
nous avons écrit à l'aide de 
TURBO PASCAL. 
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Nous continuons, dans ce 
numéro, la réalisation maté 
Halle entreprise dans le numéro 
précédent. 

Comme vous l'aurez remarqué, le 
schéma donné n'était qu'un 
schéma de principe simplifié, la 
figure 1 donne le schéma de prin- 
cipe au complet. Nous rappelle- 
rons que le rôle de cette interface 
est d'amplifier les signaux issus 
du CPC et surtout d'isoler le 
microprocesseur et les circuits du 
CPC de nos réalisations. Nous 
avons donc "bufferisé" les prin- 



signaui 



î du micro- 



processeur Z80 (les signaux 
d'adresses, les signaux de don- 
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it quatre des prin cipaux 

x de com mande : MRQ. 

RD, WR, respectivement 

demande d'accès mémoire, 

demande d'entrée sortie, lecture, 

écriture). 

Les bus adresses et commandes 
sont utilisés d'une façon unidirec- 
tionnelle par le microprocesseur ; 



effet, i 
signaux aux 
ques, par conti 
vent circuler a< 
processeur v 



qui fournit ces 
rcuits périphéri- 
les données peu- 
isi bien du micro- 
; les circuits péri- 
phériques que des circuits péri- 
phériques vers le microproces- 
seur. Il va donc être nécessaire de 



ne séleciionner le buffer des don- 
nées que pour les accès vers les 
interfaces extérieures, c'est-à- 
dire pour des adresses extérieu- 
res au CPC et ce afin de ne pas 
mettre de signaux sur le bus de 
données pendant les lectures 
internes. Il faudra de plus que le 
buffer soit utilisé bi direction nel- 
lement : ce sera le rôle des trois 
circuits 74LS11, 74LS86 et 
74LS32. 

Les concepteurs du CPC n'ont 
laissé comme espace adressable 
des entrée s -sorti es pour l'utilisa- 
teur que celui correspondant au 
bit d'adresse A10 a volt. En 
effet, dans le CPC, chaque circuit 
périphérique dans l'espace des 
entrées-sorties du Z80 est sélec- 
tionné par un seul bit d'adresse 
choisi parmi tes 8 bits de poids 
fort du bus adresse, ce qui impli- 
que, lors de la programmation en 
assembleur, de n'utiliser que les 
instructions d'entrée-sortie du 
Z80 utilisant le registre C car ces 
dernières mettent le registre B sur 
les poids forts d'adresse. Le 
8256 (générateur de son, clavier, 
cassettel est sélectionné pour le 
bit d'adresse AU à volt, le port 
Centronics (imprimante) est 
sélectionné pour le bit d'adresse 
AI 2 à volt. Le contrôleur 
d'écran 6846 pour le bit 
d'adresse AI 4 à volt, le GATE 
ARRAY par le bit d'adresse Al 5 
à volt, le bit Al 3 sert à l'adres- 
sage de l'interface disque. 
Les adresses disponibles pour 
l'utilisateur sont les adresses 
hexadécimales : F8xx, F9xx, 
FAxx. FBxx. Nos réalisations uti- 
liseront, donc ces adresses. 
Sur I 1 AMSTRAD 
possibilité de 
mémoires ROM o 
nés ; pour cela, r 
sur le bus d'expansion les 
signaux ROMD1S et RAMDIS qui. 
lorsqu'ils sont à 1 ( + 5 volts), 
déconnectent la ROM ou la RAM 
interne Pour ne pas se limiter à 
quelques réalisations d'entrée- 
sortie, nous utiliserons aussi ces 
signaux pour sélectionner notre 
buffer de données. 
L'AMSTRAD existe en deux ver- 
sions : 664 avec lecteur de dis- 
quettes incorporé et 464 sans 
lecteur de disquettes mais avec 
la possibilité d'y coupler une 



i RAM ( 



interface disque extérieure. Notre 
réalisation devra fonctionner sur 
les deux types de machines. 
Dans le cas du 664, il ne faut pas 
sélectionner les données externes 
pour les entrées-sorties disques 
Ibit A13 à volt), ce qui r 



pas le cas a 



c le 464 équipé de prernie 



vérité et le schéma a 
donnés dans le numéro précè- 
dent, mais nous analyserons le 
schéma de commande du buffer 
de données. 

Nous trouvons un 74LS1 1 qui est 
triple ET à trois entrées. Le 
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Ecriture du Z80 du CPC vers un circuit 
externe. 
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Lecture du Z80 du CPC d'un circuit 
externe. 











Ecriture par un circuit externe dans les 
mémoires internes du CPC. 


1 
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Lecture par un circuit externe des mémoi- 
res internes du CPC. 



l'interface disquette. Ceci expli- 
que le strap figurant sur le 
schéma de principe, ce strap 
devra être câblé pour les utilisa- 
teurs d'un 464 et ne devra pas 
être câblé pour les utilisateurs 
d'un 664, il relie ou non le bit 
d'adresse A13. 

ANALYSE DU SCHEMA 



tion de notre interface pour les 
entrées -sorti es dont le bit A1 3 et 
le bit Al Osent â zéro. Ces deux 
signaux étant combinés avec le 
signai lOFfQ du microprocesseur 
dans le premier OU du 74LS32, 
qui est un quadruple OU à deux 
entrées, notre buffer sera donc 
sélectionné pour A 1 3 = O et rOHO 
= ou pour A10 = et fURO 
= ; rappelons que la broche 1 9 
du 74LS245 est valide pour un 
état 0. Nous allons rappeler les 
tables de vérité de ces circuits 
(figure 8), leur brochage est 



donné i 



i figure i 





/l 






J \ 


.0 

fa 

B 




j 


confiectmr mil» 50 contact 
vin fond de p m »r 












-1 




= LS243 


h LS245 b LSZ43 


lh 


LS245 




H 


connecteur 50 contact! ftmrll* vers CPC 


H 













ET 


ou 


OU EXCLUSIF 


e1 


e2 


s 


el 


e2 


s 


el 


e2 


s 
































1 








1 


1 





1 


1 


1 








1 





1 


1 





1 


T 


1 


1 


1 


1 


1 


1 


1 








La sélection pour les accès à des 
ROM ou des RAM externes se 
fait par la combinaison des 
signaux ROMDIS et ROMEN à 
travers un OU. Le signal ROMDIS 
aura auparavant été inversé par 
le premier OU EXCLUSIF ; pou» 
comprendre cet inverseur, se 
reporter à la table de vérité du OU 
EXCLUSIF ci-dessus. Une ROM 
externe signalera donc sa pré- 
sence par un 1 ( + 5 volts> sur 
l'entrée ROMDIS et pour que le 
buffer de données soit sélecte, il 
faudra ROMDIS à î et RUMEN à 
0. Pour des problèmes de timing 
avec l'interface disque DDI1, le 
signal à la sortie du OU a été légè- 
rement retardé par un circuit RC 
comprenant une résistance de 
470 ohms et une capacité de 
100 picofarads. La sélection 
d'une RAM externe ne se fera 
que par le RAMDIS ; cette RAM 
ne servira qu'au stockage de don- 
nées car elle ne sera accessible 
en écriture que par un artifice. 
Toujours dans un souci de ne pas 
se limiter en réalisation, un autre 
signal du Z80 a été utilisé pour 
sélectionner nos buffers. C'est le 
signal BUSAK. Ce signal est 
fourni par le Z80 et indique que 
ses bus ont été mis dans l'état 
haute impédance ; ce signal est 
positionné par le Z80 après 
qu'une demande d'accès au bus 
ait été formulée par un circuit 
extérieur (microprocesseur, 
contrôleur de DMA ou autre), 
cette demande d'acc ès étant un 
niveau sur la br oche BU SRQ du 
Z80. Le signal BUSAK indique 
donc quand il est à volt et, dans 
ce cas, changera le sens des buf- 
ters des signaux d'adresses et 
des signaux de commandes (bro- 
che dir des 74LS245, broche 1 1. 



De même, pour les données, les 
sens de lecture et d'écriture 
seront inversés suivant que le 
microprocesseur sera celui du 
CPC ou un microprocesseur 
externe. Pour modifier le sens des 
données, nous avons utilisé un 
OU EXCLUSIF, ce qui donne le 
fonctionnement suivant la figure 



La figure 3 donne l'implantation 
de l'interface, les figures 4 et 5 
présentent le circuit imprimé. 
Rappelons pue cette interface se 




branche directement sur le 
connecteur arrière du CPC et que 
ses circuits sont alimentés par 
l'ordinateur. 

Le connecteur 50 broches la 
reliant à l'AMSTRAD est un 
connecteur pour circuit imprimé 
embase femelle a souder sur 
carte au pas de 2,54, par exem- 
ple un SOURIAU HE901 E 50 Y. 
La liaison entre l'interface et le 
fond de panier se fait par un câble 
plat à 50 conducteurs ; l'embase 

embase mâle à 50 contacts avec 
ou sans verouilleur pour système 
câbles/connecteurs auto-dénu- 
dants. 

LE FOND DE PANIER 

Regardons maintenant le fond de 
panier. Il comprend une embase 
mâle 50 contacts identique à 
l'embase mâle de l'interface, ce 
qui permet de les relier par un 
câble autodénudant. Il comprend 
aussi 4 connecteurs devant rece- 
voir les réalisations à venir et un 

imprimé qui recevra l'interface 
pour les possesseurs d'un 464 
avec interface DDI1 . Nous avons 
choisi pour les connecteurs char- 
gés de recevoir les réalisations un 
format supérieur au bus d'expan 
sion de l'AMSTRAD, soit 62 
contacts et ce afin de pouvoir 
relier certaines cartes d'exten- 
sions directement entre elles et 
de pouvoir aussi les alimenter en 
multitension comme +12 V et 
-12 V. Les connecteurs d'ex- 
tension respectent le même bro- 
chage que le bus d'expansion de 
l'AMSTRAD et ce, bien sûr, sur 
les 50 premières broches. Une 
seule remarque : ATTENTION au 
sens de la nappe lorsque vous le 
presserez. Pour l'instant, nous ne 
vous donnerons pas un schéma 
d'alimentation, celles-ci se trou- 
vent facilement en kit pour des 
prix très raisonnables. Notons 
que l'alimentation de l'AMS- 
TRAD n'est pas utilisée pour ali- 
menter les montages branchés 
sur le fond de panier, mais il est 
toujours possible de la dériver par 
un strap vers le fond de panier. 
Pour chaque montage, nous vous 
donnerons sa 
approximative. 
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ABONNEZ-VOUS 



voir page 3 
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J.M. LAQUITTANT des Logiciels du n° 3, vous piésen- 

50250 DONVILLE LES BAINS tez MULTIGESTION. Contrairement 

Dans votre rubrique Banc d'Essai sible de titrer les rubriques. Il faut 



valider le curseur clignotant avec 
COPY et entrer le titre désiré dans 
les 18 postes utilisables. Le report 
est de plus automatique de l'option 
"Comptabilité journalière" vers l'op- 
tion "Budget" 



Pour une fois que le Basic s'avère 
plus intéressant que l'assembleur, je 
ne résiste pas au plaisir de donner 
une suite au programme CIRCLE 
d'Eddv DUTERTRE. paru dans CPC 
n° 3, Mon petit programme ci- 
dessous permet de tracer un cercle 
quelconque en 1 à 2 secondes, ce 
qui est assez rapide. 
Le principe : au lieu d'utiliser les 
équations paramétriques classiques 
X = Yc + R cos t et Y = Yc + R sin 
t, on détermine une suite de 



points du cercle où les coordon- 
nées de chaque nouveau point se 
déduisent de celles du précédent 
Les paramètres 0.01, 0.141, 
0.99 et 45 ont été choisis empi- 
riquement. 

io :«vr 'abscisse du centre i*i« 

■OWOKCE DU OUTRE l»tW 
| IHPUT -RlYON DU CERCLE l'tf 

i U=IC«R : I1.VC 



: F=0.0l'ïCH3.141t 



60 FOR W-l TO *5 
70 I«*0.«tIH 
0.1*1*11 
BO10I Il.TI : 
m IM2 : ¥Wf3 
103 «El* n 



Si vous utilisez une imprimante 
autre que la DMP 1 sur votre 
AMSTRAD, vous avez peut-être 
constaté qu'elle avait une 
fâcheuse tendance à laisser une 
ligne blanche entre deux lignes 
imprimées. Certains préconisent 
de modifier par soft (cela est pos- 
sible sur certaines imprimantes) 
l'espacement entre les tignes ; 
c'est bien, mais c'est aussi une 
manière de masquer le défaut. 
La solution passe par l'examen de 



la description du connecteur 

CENTRONICS : on s'aperçoit 
que, si la broche 14 est forcée à 
la masse, l'imprimante effectuera 
un saut de ligne automatique 
après chaque impression (AUTO 
LINE FEED). C'est l'origine du 
défaut car l'AMSTRAD envoie 
une masse sur ce point {toutes 
les liaisons "non utilisées" par 
l'interface AMSTRAD étant, a 
tort, fixées à la masse). 
Le remède consiste donc ô isoler 
ce point 14, au moyen d'un 
minuscule adhésif, ou à couper le 
M correspondant sur la nappe, 
mais 'à, gare ! ne vous trompez 
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Voici c 

de avec très peu de compo- 
sants ; avoir la couleur en possé- 
dant un AMSTRAD monoch- 



rome. Naturellement, vous aurez 
compris qu'il ne s'agit pas de 
transformer le moniteur, mais 
plus simplement de réaliser un 
cordon qui raccordera la console 
au téléviseur couleur familial, 
pourvu que celui-ci soit doté 
d'une prise Péritel. Le coût de la 
réalisation est extrêmement bas, 
même en tenant compte de l'ali- 
mentation 12* volts dont nous 
donnons un schéma. Cette ali- 
mentation permet de déconnec- 
ter la partie réception HF du télé- 
viseur. Elle est indispensable car. 
l'AMSTRAD fonctionnant sous 5 
volts, ne permet pas de comman 
der la commutation via le câble 
Nomenclature 
des composants 

— 1 connecteur Péritel 

- 1 prise DIN mâle 6 broches à 
60° 

3 mètres de câble à 5 conduc- 

— 1 résistance 100 ohms (brun- 
noir-brun-or) 

- 1 alimentation 12 V/500 mA 
type calculatrice 



- 1 transformateur 220 V/12V 

- 4diodes 1N4001 ou 1N4O07 

- 1 condensateur 1000 mF/35V 




LES DISQUETTES DE 



Tous les programmes parus 
dans CPC sur une disquette, 
pour ne pas perdre de temps à les 
saisir. L'idée n'est-elle pas 
bonne ? Sur la même disquette 
sernnt regroupés les programmes 
parus dans deux numéros suc- 
cessifs de CPC. 

Le tarif, port compris, 1 40 F pour 
les abonnés JOINDRE IMPERA 
TIVEMENT VOTRE ETIQUETTE 
D'ABONNE AU CHEQUE DE 
COMMANDE. 

Pour les non abonnés, le prix est 
de 1 70 F, toujours port compris. 
Commandez vos disquettes 
directement aux Editions SORA- 
COM. Pas de contre-rembourse- 



Les programmes < 
ces disquettes sont tels qi. 
publiés dans ta revue et n'or 
subi aucune modification. A vol 
de les adapter à vos besoins, 
vous le désirez. 



A l'heure où v 
les disquettes 
disponibles. 



s lirez ces lignes, 
:ommandez-les 



- Cercles en Basic 

- Char d'assault 

- Bruits de vagues 
Redéfinition du pavé 



- Maze 

- Redéfinition de c 

- Carré magique 

- Lexique anglais-français 

- Fichier lexique de 286 mi 

- Traducteur Morse 

- Tables de multiplication 

- Curseur clignotant 





BON DE COMMANDE 




(valable 


jusqu'à épuisement des stocks) 




Abonné Non- 


bonne 


1 CPC DISC N 


° 1 - 2 . 140 F 


170 F 


1 CPC numéro 


2-3 


18 F 




















Entourez le nurr 


éro du disque choisi ou de la revue. 




Frais de port : 


6,50 F pouf un ou deux numéros de CPC. 
Franco pour CPC DISC. 




Ci-joint, chèque 


bancaire ou postal de F 





ROUTIIMES 

AU-DESSUS DE 
TOUS SOUPÇONS 



Quand on progri 
Assembleur, il es 
inutile de réécrire des r 
existent déjà dans le système, 
surtout lorsqu'elle sont compati 
blés d'un CPC à l'autre. 

Lune des plus connues (elle est 
même utilisée par certains pro- 
grammeurs en Basic) est BB18. 
Elle permet d'attendre que l'utili- 



sateur ait frappé une louche du 


vers la droite. Pratique, non ? 


clavier. Elle ne nécessite pas de 


Ah, vous vouliez positionner le 


conditions d'entrée particulières 


curseur avant d'écrire le carac 


A la sortie, on récupère dans l'ac- 


1ère, donc réaliser un LOCATE. 


cumulateur le code du caractère 


Qu'à cela ne tienne, BB75 réalise 


ou le "Token" correspondant. Si 


le travail. Vous mettez dans H le 


vous ne voulez pas attendre 


numéro de la colonne, dans L 


(donc bloquer le programmel la 


celui de la ligne et vous appelez 


frappe d une touche, mais sim- 


la routine. Attention, AF et HL 


plement la saisir "au vol" utili 


sont modifiés Colonne 1 , ligne 1 , 


sez plutôt BB1B. 


place le curseur en haut, à gau- 


Et pour afficher le caractère à 




l'écran ? C'est très simple, le 


Et si vous en avez assez de voir 


code ASCII du caractère étant 


le contenu de l'écran, vous pou- 


dans l'accumulateur, on appelle 


vez l'effacer en lui affectant la 






joué. Attention, les registres (AF, 


de condition d'entrée mais, en 


BC, DE, HLI sont tous modifiés 


sortie, les registres AF, BC, DE, 


par cette routine, il faut donc 


HL sont modifiés : pensez à les 


penser à les préserver. Cette rou- 


sauvegarder, L adresse ? BC14 


tine déplace également le curseur 


A la prochaine fois ! 
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Imaginez que votre AMSTRAD 
vient de tomber en penne : il ne 
lui reste plus qu'un petit kilo-octet 
de mémoire- Saurez-vous écrire 
des programmes originaux per- 
formants qui ne tiennent que 
dans ce kito-octet ? Attention t 
vos programmes devront être 
écrits en Basic, mais les routines 
en code machine présentées sous 
forme de data son 



Faites-nous parvenir vos pro- 
grammes sur cassette, accompa- 
gnés d'une brève explication. Les 
cassettes vous seront retournées 
si vous le demandez. 
Alors, tous à vos claviers. Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet. Les 
meilleurs programmes seront mis 
à l'honneur d3ns CPC et leurs 
auteurs récompensés. 



Deux fainéants astucieux pour 
KILOBYTE ce mois-ci. 
Eric BAJART nous propose d'ap- 
prendre le MORSE en traduisant 
les textes entrés en codes visuel 
et auditif. Si ce n'est pas la meil- 
leure méthode pour débuter, elle 
pourra peut-être susciter des 
vocations, 

Michel DUBOIS, quant à lui, pré- 
fère faire réviser aux enfants leurs 
tables de multiplication, tout en 
faisant travailler la mémoire. 
Savant mélange de 7 x 5 = et du 
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D THEN 10 






3 IF t-2 THEN FOB 1 = 1 TO 34lDRAUR 0,-SD. 






U1ÛVER l.OiDBAUB 0,80:MOUEP. I.QiNExtjlO 
C»TE Jt/l6+3.<*0Q-u>/14*3îlF g| C K!D THETJ 
PRINT US1N5 «#"tc 

9 IF k»l THEN IF t-1 Ofl oit THEN HOVER 2 
,-2jFOR i-1 TO 32;DRAUR D. -76,0lr*iVEfl 1. 
QiDBAUR G,7fe:IWES 1 , 0:NEXT;LOCATE X/t6* 

10 N£XT:NEXT:flETIJSN 

11 h-INT(SN012>'8l*HIF t*(MO"THEN 11 


VrV 




12 t-lhï-jïielM-n.jiBETURN 



CALAMITES 
CPC 

dans le programme VIE PRATI- 
QUE publié dans le n° 2. Lorsque 
l'on choisit l'option 2 (autre datel 
pendant l'exécution du 
biorythme, le jour de la date de 
naissance ainsi que l'âge sont 
erronés. Cela est dû au fait que 
la même variable <W1 s'applique 
à Ji et J2. Il est possible d'y 
remédier de la façon suivante : 
Ligne 280 
INPUT "J = ":J0 
Ligne 360 
CLS:J1=J0 



Ainsi, les paramètres affichés 
sont corrects. De même, la par- 
lie zodiaque du programme se 
plante inexorablement quand on 
tombe sur un H = 11 après jan- 
vier. Tout rentre dans l'ordre en 
ajoutant une ligne 1415IFH = 12 
THEN HO. Remerciements à D. 
SAUVAIRE et Albert RIGAL pour 
leurs courriers nous signalant ces 
erreurs et pour les solutions qu'ils 
ont apportées. 

UN HIT-PARADE 
DES JEUX ET DES 
UTILITAIRES 

Vous nous le demandez ? D'ac- 
cord, mais participez au classe- 
ment en nous donnant votre avis 
d'utilisateur. 



Conservez vos cassettes 
en les protégeant. 
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NOM 

Prénom 

Adressa 

Coda Postal 

Villa 

Cl-joint, choqua bancal» au postal (la 

SORACOM 

Le Grand Logis — 10, Avenue du 
Général de Gaulte - 351 70 BRUZ 
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Petites Annonces 



HiNiU En contéque 



probable qu'il «lua dn "ginéreua dona- 
teurs ' 0» matériel) ou a* losjtciali. lu peil 



bis emploi I AMSTRAD CPC 464 + in 
DMP1 IAMSTBADJ + 180 progremm. 
Vente séparée possible. FRE V Daniel, 8. In 
des Hirondelles. 671 10 REICHSHOFFEN, tl 
186) 09.70.79 iaprés 19 h). 



ur AMSTBAD CPC 664 



76569.00 

THAD. Cherche 

* 58 programr 

765.53.00. 

Achaie an échanr, 
TBAD Cherche Ai 



■nnonce non accompagna» de 

:hange programmes sur AMS 

ids SPECTBUM AS ko 106/85) 
mmes. Vlncanl BASSl. 12 rue 
57000 METZ, tél.: IB: 



mes sur AMS 
; dans la région 
46 Ko 106/851 

METZ, i<5l.: 181 



ru échange pour AMSTBAD CPC 664 



tion au Basic A 

111 i2K7),T>BI 



mploi 1 AMSTRAD CPC 464 * in 
1 {AMSTRAD) + 180 programmi 
■ séparée passible. FREY Daniel, B, in 
lirondeUes, 671 10REICHSHOFFEN. » 



1 AMSTBAD CPC 464 -. 



Ad il BELA OU NI cherche personnes possé 
Oam AMSTRAD CPC 464 ou 664 pour 
échanges programmes et idées. Tél.: 150) 
92.65.55 le soir ou adresser liste au 44B. rua 



Dour AMSTRAD CPC 4 
: lOOF.Sorcerv: 100 



d'AMSTRAD CPC 4' 
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les petites annonces et les messages 
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